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1. SCOPE 


This document contains an ”as built" design specification for 
a LIST (LABEL IDENTIFICATION FROM STATISTICAL TABULATION) 
processing system. This system provides for dot labeling using 
quadratic discrimination based on analyst-provided answers to 
questions concerning an MSS pixel array (segment) and individual 
dots (pixels) in the segment. 

The system consists of several subsystems which communicate 
through disk and tape files. These subsystems are 

1. The file merge processor of the EOD-LARSYS system (DAMRG) 

2. The ground truth to class map and class map to labeled dots 
processors of the EOD-LARSYS system (GTTCN, GTDDM) 

3. The LIST variable processor, (PREPPT) 

4. The discriminator training program, (MPPTA) 

5. The discriminator classification program, (MPTTC) 

6 . The EOD-LARSYS Procedure 1 system modified to accept Type 
dots re-labeled as boundary dots and output CCIT-type 
comparison reports . 

The LIST processing system was written in FORTRAN IV— G and 
implemented on the IBM 370/148 computer at Purdue-LARS. 



2 . APPLICABLE DOCUMENTS 


• As-Built Design Specification for a Merging Program for 
Formatted Image Data Piles, Lockheed Electronics Company, 

Inc., SSD, Houston, Texas, Aug 1978, LEC-12653. 

o Preliminary User Guide for the Program GTDDM (Ground Truth 
Dot Dumps), Lockheed Electronics Company, Inc., SSD, Houston, 
Texas, July 1978 , LEC'-12636. 

• ”As-Buxlt" Design Specification for the Patterson-Pitt-Thandani 
Minimum Loss Classifier, Lockheed Electronics Company, Inc., 
SSD, Houston, Texas, May 1978, LEC-12285. 

« Preliminary User Guide for the Program GTTCN (Ground Truth 
Tape Conversion) LEC, H,T, July 1978, LEC-12635. 

• "As-Built” Design Specification for LACIE formatted Dot 
Cards in EOD-LARSYS, LEC, April 1978, LEC-12154. 

e As-Built Specification for EOD-LARSYS Procedure 1, 

TIRP 77-0008, LEC-11293, JSC-13143’, Oct. 1977. 

• Design Specification For A LIST Processing System, Lockheed 
Electronics Company, Inc., SSD, Houston, Texas, August 
1978, LEC-12696. 

o TIRF 78-0021, LIST Processing Capabilities, May 4, 1978. 





3. SYSTEM DESCRIPTION 


3.1 HARDWARE 

The LIST processing program xs operational on the IBM 370-148 
at Purdue LARS under the CMS370 operating system. The program 
utilizes the IBM Fortran IV-G coirtpiler. 

3.2 SOFTWARE DESCRIPTION 

The LIST processing system features a semi-automatic dot label- 
ing procedure. The quadratic discriminator is trained based on 
analyst-furnished responses to questions concerning the segment 
under investigation, and individual dots, raw MSS data and 
ground truth dot labels. This discriminator is then used in 
the test and classification phase to label dots utilizing the 
analyst-supplied responses. 

The complete system consists of two main parts. The first part 
is the LIST labeling procedure. The second part utilizes the 
LIST labeled dots in con 3 unction with the EOD-LARSYS Procedure 1 
system for classification of segment pixels. 
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3.2.1 SOFTWARE COMPONENT NO. 1 (LST EXEC) 

The LIST executive file requests the tapes for each procedure, 
loads and starts execution of each processor, defines input and 
output files, saves intermediate files and prints list files. 
(See section 4.) 

3. 2. 1.1 Linkages 

The LIST executive uses the FORTRAN-IVG compiler, routine 
CMS370 software systems routines, data files and the following 
processor programs; DAMRG, GTTCN, GTDDM, PREPPT, MPPTA, MPPTC, 
TDMP, FDMP, and the EOD-LARSYS system. 

3. 2. 1.2 Interfaces 

Interface is accomplished through the following files: 

16-channel Data File in EOD-LARSYS format. 

Ground Truth Class Map in Universal format. 

LIST Variable Input File (Table 3-5) . 

Loss Vector Matrix File. 

3 . 2 . 1 . 3 Inputs 

Inputs to the LIST system are described for each of the 
processors DAMRG, GTTCN, GTDDM, PREPPT, PPTA and PPTC. The 
master LIST control file is available to each processor for the 
types of processing (TRAIN, TEST, CLASSIFY) , segment numbers 
and dates. 

3. 2. 1.4 Outputs 

Outputs from the LIST processor are described for each of the 
subprocessors DAMRG, GTTCN, GTDDM, PREPPT, PPTA and PPTC. 

3 . 2 . 1 . 5 Storage Requirements 

The LIST processor requires less than 1024k bytes of virtual 
memory. 




3. 2. 1.6 Description 

The LIST processor reads input control data giving the segment 
numbers to be processed and the type of processing to be done. 

If requested, the subprocessor Merging Formatted Image Data Files, 
DAMRG, is called to produce a 16 -channel tape from portions of 
4 four-channel tapes. This tape consists of one logical file 
for each segment. 

If training or testing is to be done, the Ground Truth Tape 
Conversion subprocessor, GTTCN, is called to produce the Ground 
Truth Class Map Disc File from the one-channel Ground Truth Tape. 

This disc file is then read by the Ground Truth Dot Dump 
subprocessor, GTDDM to produce the Ground Truth Dot File also 
consisting of one logical file for each segment. 

If requested, the Preprocessor for the Patter son-Pitt-Thadani 
Routines, PREPRT, is called to prepare data for the quadratic 
discriminator. The 16-Channel Data File created by DAMRG, the 
AI Responses File, and, if training is to be done, the Ground 
Truth Dot Data File are used with the Seasonal Table and the 
Biostage Response Table to produce the LIST Variable Input File. 

If requested, the Patterson-Pitt-Thadani Training Processor, 

MPPTA, is called to create the loss vector matrix, and the 
Patterson-Pitt-Thadani Classifying Processor, MPPTC, is called 
to calculate the classification losses to find the minimum loss 
and write the computed dot labels (classification results) . 

MPPTC also creates LACIE format dot files for the AI lables and 
the classified labels. 




If requested, the EODrLARSYS System Display Processor is called 
the classify the entire scene using the 16~Channel Raw Data 
File created by DAMRG, the EOD-LARSYS control cards, the Analyst 
Changes to Computed pot Labels File and if type is TEST the 
Ground Truth Dot Labels File. This classif ication produces the 
Class Map File, the Dot Summaries .and Proportion Estimate File 
and a Dot Summary Listing. If type is TEST, this processor 
will also produce a file comparing the classification results 
to ground truth. 







LIST PROCESSOR (Continued) 
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LIST PROCESSOR (Concluded) 
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SEGMENT CLASSIFICATION 
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SEGMENT CLASSIFICATION (Concluded) 
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3.2.2 SOFTWARE COMPONENT NO. 2 (DAMRG) 

The DAMRG program furnishes a -general capability to merge 
formatted MSS data file into a file suitable for input to 
pattern recognition systems such as EOD-LARSYS. Up to six 
files can be handled in one merge procedure; the option used 
in LIST processing is four channels from each of four tapes. 

This program allows for the following three user options in 
merging data: channel merge, spatia-l merge and line merge. 

The option used to prepare data for LIST processing is the 
channel merge option whereby pixel data from the specified 
channels in the user-specified rectangular field are concatenated. 

The output file. is a Universally or LARSYS- III formatted file 
with a rectangular field with line and sample skip factors set 
to the value. 1 and the first pixel coordinates set to (1,1). 

Merge channels are renumbered starting with the value 1. 

Channels are merged in the. order of appearance in the input 
control cards. 

Sun angles are extracted from header records or read in from 
control cards. . Gains and biases are -unpacked for appropriate 
channels. Sun- angle corrections. are performed on option to- all 
pixels making up to the output tape . 

A channel merge of Universally formatted output has .the sunangles- 
and gains and biases written- to the output header; the data and 
site are also written to the header. 

In gains and. biases and sunangle extraction, it is assumed that 
the first channel on any input file is channel number 1. 

Reference As-Built Design Specification -for a Merging Program for 
Image Data Files', Aug. 1978 , for a detailed description of DAMRG. 




3.2.3 SOFTWARE COMPONENT NO. 3 (GTTCN) 


The program GTTCN converts Accuracy Assessment Ground Truth 
Image files in Universal format (351 by 392 in size) to 
Universal format image files (117 by 196 in size) by mapping 

six subpixels into one pixel label. 

A user supplied control card-image file specifies the format 
and logical unit number (LUN) and file number of the first file 
on the input tape, the LUN and the file number of the first 
file on the output tape, the nmiber of files to be converted, 
a list option for the crop codes listing and a vector designat- 
ing which subpixels are to be used in labeling the pixel. 

The conversion labels ^ach pixel by majority rule using the 
user supplied vector to determine which of the subpixels are to 
be used in the labeling process. Ties are resolved by using 
the first label. 

A Crop Code Listing is producted if requested in the output file. 

Reference Preliminary User Guide for the Program GTTCN (Ground 
Truth Tape Conversion), LEC^July 1978. 




3.2.4 SOFTWARE COMPONENT NO. 4 (GTDDM) 


The GTDDM- program furnishes a general capability to extract a 
11 by 19 matrix of dots from a Converted Ground Truth Tape 
(size 117 by 196) prepared by the GTTCN program. This 11 by 
19 matrix is then labelled using the user supplied Crop Code 
to Category Table in the LARSYS format which is described in 
the document referenced below. 

The 11 by 19 matrix of labelled dots is converted to LACIE 
format and written to an output file. 

A report file is written listing all control cards, the 11 by 
19 matrix* of labeled dots and the LACIE format dots. 

Reference Preliminary User Guide for the Program GTDDM (Ground 
Truth Dot Dump) for a detailed description of GTTDM. 






3.2.5 SOFTWARE COMPONENT NO. 5 (PREPPT) 

PREPPT collects data from multiple files, calculates values for 
each pixel to describe greenness and brightness and writes 
the LIST variable Input File. 

3. 2. 5.1 Linkages 

PREPPT is called by the LISTRR EXEC and calls READID, READTB, 
READAI, READRD, CALKEY, READGT, RDLDF, and WRTQD. 

3. 2. 5. 2 Interfaces 

Interface is accomplished through common blocks /AI/, /BL0STG/, 
/SEASNS/, /SGMENT/. 

3 . 2 . 5 . 3 Inputs 

List Control Card File (Table 3-1) , Biostage Response File 
(Table 3-2) , Seasonal Table File (Table 3-3) , AI Response File 
(Table 3-4)', 16-channel MSS Data File, Ground Truth Dot Data File. 

3 . 2 . 5 . 4 Outputs 

LIST Variable Input File (Table 3-5) . 

3..2.S.5 Storage Requirement 
Program size =1502. 

3. 2. 5. 6 Description 

PREPPT calls READID to read the types of processing, segment 
numbers and segment dates. READTB is called to read the seasonal 
data and bio stage data and READAI is called to read the analyst 
response data and READRD is called to read the 16-channel MSS data 
file. CALKEY is called to make the calculations described in 
Appendix D. If testing or training is to be done, READGT is called 
to read the ground truth data. READGT calls RDLDF which calls 
PTTLAC to read 'the LACIE format ground truth dot file. WRTQD is 
called to write the LIST Variable Input File. 



3 . 2 . 5 . 7 Flowchart 
N/A 

3.2.5. 8 Listings 
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3.2.6 SOFTWARE COMPONENT NO. 6 (MPPTA) 

The program MPPTA writes a loss vector matrix to unit no. 7 to 
be used by the processor MPPTC. 

3. 2. 6.1 Linkages 

The program MPPTA calls subroutines SPPTA, PPTA, CLOCK, GETIME, 
GETIME, GTDATE, and IDNAME. The subroutine SPPTA uses the 
function ALPHA and calls the subroutine SETTRM. The Subroutine 
PPTA calls READIT, NP , ALPHA, and PHI. Subroutines CLOCK, 

GETIME, GTDATE, and IDNAME are "system subroutines" and 
descriptive by name. 

3. 2. 6. 2. interfaces 

MPPTA interfaces with other routines through calling sequences, 
and common blocks UN and FV. The common blocks are initialized 
in PPTBLK. 

3 . 2 . 6 . 3 Inputs 

The List Variable Disk Files (Table 3-5). 

3 . 2 . 6 . 4 Outputs 

A loss vector matrix disk file is written. 

3. 2. 6. 5 Storage 
Program size = 618702. 

3. 2. 6. 6 Description 

The program MPPTA is the first of' two processors used in 
sequence to classify input data using the Patterson-Pitt-Thandani 
algorithm for minimum loss classification. MPPTA writes a loss 
vector matrix to a disk data set to be used by the second 
processor MPPTC. 



3 . 2 . 6 . 7 Flowchart 
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3.2.7 SOFTWARE COMPONENT NO. 7 (MPPTC) 

The program MPPTC uses the loss vector matrix file (made by the 
processor) MPPTA and the pixel data to compute the minimum loss 
classification. 

3 . 2 . 7 . 1 Linkages 

The program MPPTC calls subroutines SPPTC, PPTC, CLOSK GETIME, 
GTDATE, and IDNAME. The subroutine PPTC in turn calls READIT, 
IBETA, PRBSUM, PPTSUM, PPTDTL, PPTTAB, and PHI. The subroutines 
CLOCK, GETIME, and IDNAME are "system subroutines" and descriptive 
by name. 

3. 2. 7. 2 Interfaces 

MPPTC interfaces with other routines through calling sequences and 
common blocks UN and FV. The common blocks are initialized in 
PPTBLK. 


3. 2. 7. 3 Inputs 

A loss vector disk file. 

3 . 2 . 7 . 4 Outputs 

A computed dot label file in LAC IE format. 

3 . 2 . 7 . 5 Storage 

Program size = 33054 bytes. 

3. 2. 7. 6 Description 

The program MPPTC is the second of two processors used in 
sequence to classify the input data using the Patterson-Pitt- 
Thadani algorithm for minimum loss classification. MPPTC 
classifies the data using the loss vector matrix file computed by 
the first processor. 
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LIST Control Parameters 


Beginning Processor DAMRG, GTTCN, GTDDM, PREPPT, MPPTA, 

MPPTC or EOD-LARSYS 

Ending Processor DAMRG, GTTCN, GTDDM, PREPPT, MPPTA, 

I'JPPTC or EOD-LARSYS 

For each segment the following information must be entered 
Type of processing (TRAIN, TEST, CLASSIFY) 

Segment number 
Segment date 


Table 3-1 



Robertson Biostage Table 


Robertson 
biostage range 

First class response 

Second class response 

1 .0 - 2.0 

No vegetation (0) 

Green vegetation 
(1, 2, 3) 

2.1 - 2.5 

No vegetation or 
green vegetation 
(0, 1, 2» 3) 


2.6 - 3.0 

Green vegetation 
(1. 2, 3) 

No vegetation (0) 

3.1 - 5.0 

Green vegetation 
(1. 2, 3) 


5.1 — 5.5 

Green vegetation or 
turning (1 , 2, 3, 4) 

Harvested f5) 

5.6 ~ 6.0 

Turning (4) 

Green vegetation 
or harvested 
(1, 2, 3, 

6.1 - 6.9 

Turning or harvested 
(4. 5) 


7.0 

Harvested (5) 

Turning (4) 


Table 3-2 










FOR WINTER WHEAT SITES (KANSAS) 


BIO-LOWER 

LIMIT 

0 

1.1 

2.1 

3.0 

3.2 

3.9 

4.7 

5.4 

S.6 

6.1 


BIO-UPPER MEAN 

LIMIT G# 


MEAN 

Br. 


STD. DEV. 
G# 


STD. DEV. 
Br. 


1.0 


2.0 


2.9 


1.25 

(B10-1.0)*12. 76/1.1 
+(2.1-B10)*1. 25/1.1 

12.76 


74.38 

(B10-1.0)*75. 67/1,1 
+(2.1-B10)*74. 38/1.1 

75.67 


2.58 

(B10-1.0)*9. 55/1,1 
+(2.1-B10)*2, 58/1.1 

9.55 


10.2 £ 

(B10-1.0)*17. 04/1.1 
+{2.1-B10)*10. 22/1.1 

17.04 


3.1 


(B10-2.9)*20.16/.3 
+ (3.2-BlO) *12.76/. 3 


(B10-2'.9)*77.06/.3 

+(3.2-B10)*7S.67/,3 


(B10-2.9)*9.37/.3 

+(3.2-B10)*9.55/.3 


(B10~2.9)*13.25/.3 

+(3.2-B10)*17.04/.3 


3.8 


20.16 


77.06 


9.37 


13.25 


4.6 


5.-3 


5.5 


e'o 


7.0 


(B10-3.8)*21.41/.9 

+(4.7-B10)*20.16/,9 

(B10-4.7)*13.66/.7 

+(5.4-B10)*21.41/.7 

13.66 

{Bl0-5.5)*5.46/.5 

+16.0-B10)*13.66/.5 

(BlO-6.0)* (-1.36) 
+(7.0-B10>*5.46 


(B10-3.8)*67.7/.9 

+(4.7-B10)*77.06/.9 

(B10-4.7)*70.3/.7 

+(5.4-Bl0)*67.7/.7 

70.3 

(Bl0-5.5)*89,8/.5 

+(6.0-B10)*70.3/.5 

(B10-6.0)*96.24 
+7.0-B10) *89.8 


(Bl0-3,8)*7.5/.9 

+(4.7-El0)*9.37/.9 

(B10-4.7)*5.7/.7 

-t-(5.4-BlO)*7.5/.7 

5.7 

(B10-5.5)*7.4/.S 

+(6.0-Bl0)*5:7/.5 

(B10-6.0)*3.1 

+(7.0-Bl0)*7.4 


(B10-3.8)*8.0/.9 

+(4.7-Bl0)13.25/.9 

(Bl0-4.7)*10.8/.7 
-K5.4-B10) *8.0/. 7 

10.8 

(Bl0-5.5)*27.9/.5 

+(6.0-B10)*10.B/.5 

(B10-6.0)*12.5 

+(7.0-B10)*27.9 
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FOR SPRING WHEAT SITES (N.D.) 


BIO-LOWER 

BIO-UPPER 

MEAN 

MEAN 

ST. DEV. 

ST. DEV. 

LIMIT 

LIMIT 

G# 

Br , 

Gi 

Br . 

0 

0,9 

1.25 

74.38 

2.58 

10.22 

1.0 

1.1 

(B10-1.0)*12.6 
+ a.2-B10)*6.25' 

{B10-1.0)*290.05 

+(1.2-B10)*371.9 

(810-1.01*15.5 ' 
+(1.2-8101*12.9 

= (810-1.01*74.35 
+ (1,2-8101 *51.1 

1.2 

2.2 

2.52 

58.01 

3.1 

14.87 

2.3 

2.4 

(B10-2.2)*38.95 

+(2,4-Bl0)*12.6 

! 

(BlO-2. 21*333.1 
+(2.4-B10)*290.05 

(810-2.21*43.1 

+(2,4-8101*15.5 

(BlO-2.21 *94.45 
+ (2‘.4-Bl01*74.35 

2.5 

2.9 1 

7.79 

66.62 

8.62 

18.89 

3.0 

3.4 

1 

(Bl0-2.9)+44.83 

+(3.5-B10)*12.98 

(810-2.91*115.72 

+(3.5-B10}*111.03 

(810-2.91*23.27 

+(3.5-8101*14.37 

(810-2.91*13,6 

+(3.5-8101*31.48 

3,5 

3.7 i 

26.39 

69.43 

13.96 

8.16 

3.8 

4.1 

(B10-3.7)*65.32 

+(4.2-B10)*52.78 

(610-3.71*139.4 

+(4.2-3101*138.86 

(810-3.71*23.48 

+(4.2-8101*27.92 

(810-3.71*22.48 

+(4.2-8101*16.32 

1 

4.2 

4,6 

32.66 

69.7 

11.74 

11.24 

4.7 

4.9 ^ 

(B10-4.6)*60.73 

+(5.0-B10)*81,65 

(BlO-4. 61*165. 25 
+(5.0-B10)*174.25 

(BlO-4. 61*24. 53 
+(5.0-8101*29.35 

(810-4.61*27,63 
+(5.0-8101 *28.1 

5.0 

5.4 

24.29 

66.1 

9,81 

11.05 

5.5 

6.0 

(B10-5.4)*15.28 

+{6.0-B10)*40.48 

(810-5.41*118.02 

+(6.0-8101*110.07 

(BlO-5. 41*14. 98 
+{6.0-8101*16.35 

(BlO-5.41 *29.65 
+(6.0-8101*18.42 

6,1 

7.0 

(B10-6.0)*4.42 
; +7.0-B10)*9.17 

(810-6.01*59.04 

+(7.0~B101*70.81 

(B10-6.01*4.49 

+(7.0-8101*8.99 

(810-6.01*6.78 

+(7.0-B10)*17.79 

Table 3-3 



AI Response File 


Record , Record 
Type Column 


Type of Data 


Header 1 


Header 2 


2-5 

7 

9-12 

14 - 17 

19 - 22 

24 - 27 

2-5 

11 - 12 

15 - 17 

20 - 22 

25 - 27 


Segment Number 
Season 

Julian Acquisition Dates 


Reference Acquisition Date 

Robertson Biostage Numbers for 
Acquisition Dates in Header 1. 


Pixel 


(Minimum of 1, 
2-3 
6-7 
10 - 13 
15 - 18 
20 - 23 
25 


maximum of 209 per segment) 

Line Number 
Pixel Number 

AI Type of Pixel (1 value only) 
Vegetation Indication 

AI Label 


Table 3-4 



LIST Variable Input File 


File Header Record 

Number of Segments - N 
N Segment Numbers 

Segment Header Records 

Segment Header Record 1 
Segment Header Record 2 

Pixel Records {Minimum of 1, maximum of 209) 

Line Number • 

Column Number 

Ground Truth Category 

AI Label 

Dot Type Label 

AI Comment 

AI Vegetation Indication 1 to 4 

The following elements calculated as .described in Appendix D 
where I = Pixel Number 

BRIET(I,J) .J=l,4 
GREEN (I, J) J=l,4 
SQAIRB(I) 

SQAIRG(I) 

PIEB(I) 

PIEG(I) 

CANKY(I,J) J=l,4 
CANTJ(I) 

ABRIET(I,J) J=l,4 
AGREEN{I,J) J=l,4 



3.2.8 SOFTWARE COMPONENT NO. 8 (EOD-LARSYS) 

The modified EOD-LARSYS system constitutes the second subsystem 
of LIST processing. • Modifications have been made to the DOTDATA 
and DISPLAY 'processors to read and process the various dot files 
created in the LIST system. 

The DISPLAY processor has been enhanced to read any or all of 
the following dot files: 

PPTC - output by the PPT classifier/discriminator 
GT - ground truth, dot file 
Al - analyst/ interpreter dot file 

For each, the Type 1 and Type 2 dots are displayed by category 
name in CCIT format vs the machine classification category 
name. The Type 2 dots are used tO’ compute bias corrected propor- 
tion estimates of the "selected" category of interest. 

The DOTDATA processor has been modified to accept, on option, 
a LACIE dot file in lieu of the in-line 'dots contained in the 
control card file. The output file created by DOTDATA is sub- 
sequently used in cluster labeling and classification under the 
Procedure 1 structure. 

3, 2. 8.1 Linkages 

The DISPLAY processor is called by routine MONTOR, the EOD-LARSYS 
system driver. It in turn calls several EOD-LARSYS system 
utilities, including FSBSFL, FMFSFL, WRTFLD, RDDOTS , WRTHED, 
WRTLN, WRTMTX, FIND12 , NUMBER, and NXTCHR. It consists of 
routines DSPLAY, DSPLYl, DSPLY2 , REDIF3 , SETUPS, EMTHRS , DISTCV, 
CHIN, CHI, RNORM, TINORM, PCT, DESIG, FLDBOR, PRTSUM, MAPHD, 
-FDIST, FISHIN, FISH, and PRTPCT. 


Three new subprograms have been added, namely, LISTSM, LISTPR, 
and LISTLC. The DISPLAY processor uses blank common ARRAY 
(10600) and labeled common /GLOBAL/, /DISPL/, and /LISTMM/. 
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/LISTMM/ is a new common block included in LISTSM for the 
purpose of holding variable values from entry to entry. 

The DOTDATA processor is called by MONTOR. It in turn calls 
several EOD-LARSYS utilities. It consists of subroutines DOTDAT, 
DOTS, SET13, FLDTYP, and WRTDOT. 

It uses blank common ARRAY (10600) , and labeled common /DOTVEC/, 
/GLOBAL/ f /IS OLNK/, and /INFORM/. 


No new subroutines or common blocks have been added for inclusion 
of LIST processing. 

3.2. 8.2 Interfaces 

The DISPLAY processor accepts as input the following files: 

a. A machine classification map (MAPTAP) written by the 
CLASSIFY processor. 

b. On option, a dot file (DOTFIL) written by the DOTDATA 
processor for obtaining bias corrected proportion 
estimates (not used in LIST processing) 

c. Under the LIST option, any or all of the following files, 
all in LACIE dot format, each with an 80 character header 
and a $END card image 'as a delimiter at the end of the 
file, can be input: 

PPTC- discriminator labeled dot file 

GT ground truth dot file 

AI analyst interpreter dot file (any dot file could 
be used) 

Each file may have Type 1 and Type 2 or both Type 1 and 

2 dots. 
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Output from the DISPLAY processor consists of a formatted 
(Universal or LAKSYS II) classification display file suitable 
for display on the PMIS-DAS . 

Printer output includes dot summaries, either under standard PI 
or under the LIST structure. 

The DOTDATA processor accepts a raw data file (MSS data file) 
as input. In LIST processing, this file may have been written 
by the DAMRG processor of EOD-LARSYS (processor to merge MSS 
data files) . 

Output from the DOTDATA processor consists of dot files contain- 
ing named Type 1 and Type 2 dots for subsequent usage by other 
EOD-LARSYS processors. 

3.2. 8. 3 Inputs 
o Processor Card 
$DISPLAY 

o New Control Cards 

Keyword Parameter Function 

GTUN UNIT - n, FILE = m Unit and file number 

of ground truth dot file. 
Normally n=23, m=l 
should be used. 

Unit and file number 
of PPTC dot file- 
Normally n=27, m=l 
should be used. 
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PPUN UNIT = n, FILE = m 

(no default) 



Keyword 


Function 


AIUN 


NAME 


ALPHA 


Parameter 

UNIT = n, FILE = m Unit and file nximber 

(no default) of AI dot file. 

Normally n=28, m-1. 


Note: Inclusion of any 

one of the 3 cards above 
triggers the LIST 
processing option. 


(one character name 
of selected 
category) default S 


The category name of the 
selected category must 
be specified for propor- 
tion estimate computations . 
S in this case is taken 
to mean "small grains". 


N^/ N 2 Values of tc(i} used in 

floating point bias correction. 

values of 

and a ,2 for bias 

correction. 

default . 5 , . 5 


o Processor Card 
$DOTDATA 

o Revised Control Card 

Keyword Parameter 

OPTION U n 

(no default) 


Function 

n = unit number of the 
LACIE formatted dot 
file to be 'used in lieu 
of in-line dot cards in 
the control card file. 
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Normally n=29 should be 
used. File 1 on unit n 
is assumed. 



3. 2. 8.4 Outputs 

See sub-section 3. 2. 8. 2. 

3.2. 8. 5 Storage Requirements 

The EOD-LARSYS system, overlaid by processors, requires less 

than 768 kilobytes of computer storage on the IBM 370/148 

computer at Purdue-LARS. 

3.2. 8.6 Description 

DISPLAY: Three new subroutines have been added to the DISPLAY 

processor to accomodate LIST processing. 

These are 

1. LISTSM - called from DSPLY2 , reads the dot files requested, 
prepares summary information, and writes out 
proportion estimations for the selected category. 
Variables computed are described as follows, for 
Type 2 dots . 

Pi'lACH(l) machine classified proportion estimate of 
the selected category. Designated other 
or unidentifiable, and thresholded pixels 
are not included. 

PMACH(2) machine classified proportion estimate of 
the set of all categories other than the 
selected one. Designated other or 
unidentifiable, and thresholded pixels 
are not included. 

Nil number of dots labeled (by PPTC, GT, or AI) 

as selected category and machine classified 
as belonging to the selected category. 

N12 number of dots labeled as selected 

category but classified into one of the 
other categories. Designated or thresholded 
dots not included. 
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N 2 ^ number of dots labeled in the non-s elected 
categories, but machine classified into the 
selected category. 

N 22 number of dots both labeled and classified 

into the non-selected categories . 

number of dots labeled "boundary" but 
classified into the selected category. 

Ng 2 number of dots labeled "boiindary" but 

classified into the non-selected categories. 

Regarding labeling, the symbols (names) M and R are used to 
denote boundary dots, and the symbol D is used to denote 
designated unidentifiable. 

Probability estimates computed and outputted are 
Pll = Nil/ (Nil + N21 + NBl) , 

P12 = N12/(N12 + N22 + NB2) , 

PBl = NBl/ (Nil + N21 + NBl) , 

PB2 = NB2/(N12 + N22 + NB2) , 

The proportion estimate for the selected category is computed 
as 

P = PMACH(l) *(P11 + ALP(1)*PB1) 

+ PMACH(2) * (P12 + ALP(2)*PB2) 

2. LISTPR - called by LISTSM, prints the CCIT tables for Type 
1 and Type 2 dots 

PPC vs machine classification 

GT vs machine classxfication 

AI vs machine classification 





3 . LISTLC - called from LISTSM, this subprogram reads the dot 
files specified by control cards GTUN, PPUN, and 
AIUN. This subroutine is almost identical to 
FLDLAC in structure, however, two switches in DATA 
have been ma(3e calling sequence arguments. 

Modification to DSPLY2 include the call to LISTSM, and transfers 
through the subroutine based upon setting of the LIST processing 
switch LISTSW. If LISTSW is on, the machine classification 
results for all 209 dots in the LACIE grid are retrieved and 
passed to LISTSM for use. 

REDIF3 has been modified to accept the new control cards. 

Calling sequences of REDIF3, SETUPS, and DSPLY2 have been 
expanded to pass the extra information along. The extra 
variables are 

LISTSW 

GTUNIT 

GTFILE 

AIUNIT 

AIFILE 

PPUNIT 

PPFILE 

NAMECT- 

ALP'(2) REAL*4 

A new common block /LISTMM/ has been incorporated into stibroutine 
LISTSM to hold' information previously stored during the 
initialization. This common block consists of 

NPGA (3,2) 

NAMPGA (209 , 3, 2 } dot category names 

of labeled dots in the order 
of input 



LINPGA(209,3,2) 
SAMPGA(2p9,3,2) 
DOTLAB(209 ,4 ,2) 


VPGA(3) 

IPGA 


dot line numbers 

dot sample niimbers 

dot category names of labeled 
dots xn LACIE grid position 
for prxntout.^ 

indxcates type of file 
PPTC=1, GT=2, AI=3 

number of files read in of 
PPTC, GT, AI 


The "2" storage is for Type 1 and Type 2 dots. 


Under LIST processxng, DESIGNATED OTHER or UNIDENTIFIABLE field’s 
can be used (as previously) to change the machine classification. 
Also, thresholding can be performed, as previously. 

DOTDATA: 

Routines DOTS, RDDOTS, and SET13 have been modified to enable 
handling of the new option to read in a unit number of the 
unit holding the LACIE formatted dots. The variable LACIE 
contains the unit number. 

In ordinary Pi processing, LACIE is set to the value 1 if 
in-line dots are LACIE formatted, and is set to the value 0 
if in-line dots have the field format. 
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4 . OPERATION 


The LIST processor, implemented as a system of processors 
called by an executive file LST, uses the Purdue-LARS 370/148 
computer system. 

The following input files are reguxred: 

, i 

Card image file giving type of processing, segment n\imbers ,and dates 
4-channel MSS data files (4) 

1-channel ground truth file 
Robertson Biostage file - 
Seasonal constants file 
AI responses file 
MPPTA- control cards 
MPPTC control cards 
PREPPT output file 
Classification interface file 



The card image file containing the type of processing, segment 
numbers and dates is the control card file for the software 
component PREPPT (unit no. 25) . 

The 4-channel MSS data files (4) are made into one 16-channel 
merged file by the software component DAMRG. This file is then 
used by software component PREPPT, The 16-channel file is on 
unit number 12 . 

The one-channel ground truth file (unit no. 11) {Accuracy 
Assessment form) is used by the software component GTTCN to make 
another image file (unit no. 12) which is LANDSAT size. This 
file is used by software component GTDDM to make a LACIE format 
dot file (unit no. 23) which is used by PREPPT. This file might 
also be input by hand. 

The Robertson Biostage file (unit no. 24) is a permanent file used 
by software' component PREPPT. 

The seasonal file (unit no. 26) is a permanent file used by 
software component PREPPT. This file contains tables for computing 
the mean and standard deviations for greenness and brightness from 
biostage number. 

The AI response files (unit no. 5) contain label, registration, 
vegetation information, and biostage numbers for each segment. 

These files (one for each segment) are used by software component 
PREPPT. 

The PREPPT output file (unit no. 15) is the file made by PREPPT 
from the above files to be used by the training (PPTA) and the 
classification software components. 



The MPPTA control card file is the control card file for the 
training program (unit no. 8). 


The MPPTC control card file is the control card file for the 
classification program (unit no. 8) . 

The classification interface file (unit no. 7) is made by the 
training program and is to be used by the classification program. 
It contains the loss vector matrix and other data needed by the 
classification program. 

The executive file LST is a prompting executive that queries the 
user and thus leads him through the whole LIST process by logical 
steps . 

LST expects the input files to be in place at execution time, but 
allows for editing control card files. LST gives file specifica- 
tions, checks tape header records and file contents on request. 

By using secondary responses the user may branch to certain 
sections of LST, thus, by-passing certain processors. 
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A. 1 SOFTWARE SUBPROGRAM MO. 1 (READ ID) 


READID reads the LIST control cards. 

A. 1.1 Linkages 

READID is called by, PREPPT. 

A. 1.2 Interfaces 

Interface is accomplished through common block /SGMENT/. 

A. 1.3 Inputs 

List control file. giving types of processing, segment numbers 
and dates from unit number < 25. 

A . 1 . 4 Outputs 
None 

A. 1.5 Storage Requirement 
Program size = 414. 

A. 1.6 Description 

READID stores the data from the LIST Control Pile in coitimqn 
block /SGMENT/,. 

A. 1.7 Flowchart 
N/A 

A. 1.8 Listings 
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PPE11460 
)PUFI 147(1 
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A. 2 SOFTWARE SUBPROGRAM 2 (READTB) 


READTB reads the Seasonal Table File and the Biostage Response 
File. 


A. 2.1 Linkages 

READTB is called by PREPPT. 

A. 2. 2 Interfaces 

Interface is accomplished through common blocks /BIOSTG/, /SEASNS/. 

A. 2. 3 Inputs 

Seasonal Table File 
Bxostage Response File 
From unit number 26 

A. 2. 4 Outputs 
None 

A. 2. 5 Storage Requirement 
Program size = 900. 

A . 2 . 6 Description 

The data from the Biostage Response File is stored in /BIOSTG/. 

The data from the Seasonal Table File is stored in /SEASNS/. 

A . 2 . 7 Flowchart 
N/A 

A. 2. 8 Listings 
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SUOROUTINE PEODTR 
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? iwFn.n^aiT.IsFASN) . SOh ILINF . 1 SF ASM 1 .SOSZ [ L INF * ISEASN ) . 

3 SiiPU INE.ISFASM.SnR?(LlNF.ISFASN) 

Ff)~-'AT (F3.1.F4.1.F3.1 .F4.l.P(F7.?l I 
ro •TINUF 

FFTURN 

aaee>»«a»oa (:pQ()p .ip^SaRFS *»*«»«»o** 

PtflSTANF TAHLF F"PTY 
*'ITF (6. <1101 

FOtPAT (* PinsTAGE TAHLF FMPTyi 
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PRF.10190 
PPFIOPOO 
PRFI0210 
PREI0220 
PHFln?30 
PRE10240 
PRElOPSO 
PRF10260 
PRF10270 
PRE10280 


TJ O 



A. 3 SOFTWARE SUBPROGRAM NO. 3 (READAI ) 

READAI reads' one set of responses from the AI Response File. 

A. 3.1 Linkages 

READAI is called by PREPPT. 

A. 3.2 Interfaces 

Interface is accomplished through common block /AI/. 

A. 3.3 Inputs 

AI Response File from unit no. 5. 

A. 3. 4 Outputs 
None 

A. 3 . 5 Storage Requirement 
Program size = 4286. 

A. 3. 6 Description 

One set of responses from the AI Response File is stored in 
common block /AI/. 

A. 3 . 7 Flowchart 
N/A 

A. 3. 8 Listings 
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SFT, Switch that no error has bffn found in segment numpfr 

15FGSW = 0 

FIRST RECORD ON FILF MUST RF A HEAOEH CARD 

HEADER CAROS MUST OCCUR IN PAIRS 

the NIJMRFR of DATA CAPOS IS NOT FIXED 

PREVIOUS CALL TO PEADAl, IF SO NOPIXL 
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IF (NOPIXL .NF. 0) GO TO 3BA 

RFSFT RF»FA0 buffer and read a CABO 
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^^TTF no.lS) IKFFPU) ,1 = 1,731 
IS format (1X,AA,71AI,A4) 

CHECK FOR HFaoFB 1 CARD 
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IF USFGSV .FQ. 
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FORMAT (• HFaDFR ERROR—ROHFPTSOM BIOSTAOE FOR »tA4* 
GO TO ROTS 

L'lFBoail) = ./J 


CHECK SEASONAL HIOSTAGFS FOR VALID VALUES 
fO 340 I = 1.4 
no 330 J = i.n 
JJ = J 

IF (AIHORBtl) .C-E.xeiOtl .J.ISFASN) . AND . AIHORB (I ) ,LE .X81 0 ( 2. 

I I GO TO 34(1 
COMTIRUF 

invalid SFASOMAL fitOSTAGF 

wRITF (S.33SI ISEGMO.AIHDRb(t) 

format (• header FRROR--SFASONAL BIOSTAGE FOR ».A4,* IS t.F4.1> 
GO TO rots 

LNFSFA(I) = JJ 


Rfon FIRST RIXFl card AS POSSIBLF HFAOEP 
OEARtS. lS,FNn=390) (KFFP t] ) , I = 1 , 73) 
pFjIM' 3,1 
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IF (lAlENO .NF. 1) W“ITF <A.3fli) ISFGNO 
format (• FPROR IN PIXFL CAPO FOR *. A41 
IF (lAIEND ,NE. U WRITE (0.31) (KEEP ( I) . 1=1 ,72) 
lAlFriO = 1 
GO TO 3«0 

FNO OF PIXFLS, HAVF ANY PtXfl PFFN READ? 

IF (NOPIXL .FO, 0) GO TO 9020 
RE TURN 

PROFFSS J>TXFL CARD 

IF (KFFP(73) .NF. ISFGH?) GO TO 90SO 
CALL PFAOPX(IPXFRR) 

IF IIPXERR .NF, fl) GO TO 3P0 

SFT SWITCH FOP valid HATCHING hFAOFR ANI) PIXEL TO 1 
MTCHAl = 1 

fiFTURH 

FNO OF file 

• •«!>«>«• error op FNO OF FILE COMDITIOFfS ***«*••** 
whITF (4.7100) ISFGNO 

format (• NO DATA ON FILE A I FOR SEGMF.NT '.A4) 
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WRITE (G.ftlOO) IDAI 

format (• FNO OF FILF WHILE LOOKING FOP HEADFP ON FILE Al 
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FATAL FPOOP, SET SWITCH AMO RfTlIRN 
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PFAOAI called after f-OF, nROGRAMMTNG FRROR 
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P 1 =| FO'"AT (• HFAOf.P SFGmFNT nUhRFH=* ,A4, * PlxfL SEGMENT NUMHFPs * , 44 ) 
GO TO 1H0 
Ff.n 


PRF04020 
PPE()4 030 
PRF04040 
PRF040SI) 
PRF04060 
PRF04070 
PRF040aO 
PPE0409D 
PRE04100 
PRF041 HI 
PPE04120 
PRE04130 
PRf 04140 
PRF041SO 
PRFO4160 
PRE04170 
PRF041P0 
PRF04190 
PHE04POO 
PRF04210 
PRF04P20 
PRF04P30 
PRF04P40 



A. 4 SOFTWARE SUBPROGRAM NO. 4 (READRD) 


READRD reads one set of data from the 16-channel MSS Data File. 

A. 4.1 Linkages 

READRD is called by PREPRT. 

A. 4. 2 Interfaces 

Interface is accomplished through common block /RAWDTA/. 

A . 4 . 3 Inputs 

16-channel MSS Data File from unit no. 12. 

A . 4 . 4 Outputs 
None 


A. 4. 5 Storage Requirement 
Program size = 6530. 

A. 4. 6 Description 

One set of data is read from the 16-channel Data File. 

A. 4.7 Flowchart 
N/A 

A. 4.8 Listings 




PnPTOA** Jv 
PUT PppopT 

noot 


oon> 


OO^A 


onns 


nnof» 

noft? 

OOOP 

no!n 

nnn 

noi ? 

non 

noi A 

non 


noi< 

noi7 

OMP 

oon 


oo?o 


no?i 

00?? 


00?*3 

O0?A 


oopt. 


00^7 

no?o 

on?o 


An 

no'M 

001? 

omi 

0014 

0015 

001 ^ 


tfvft ?J 


f^EADPf) DAte = 79001 iO/Sl/5? PA6F OOOZ 


SURPOUTINC PFAnPp 

Pl|apn^F:PF40 SFT OF PAW 04TA PFCCROS {SF6*N0*=I0) FROM 16-CHAN FTLF 
A-^iD CALCULATE GPFENFSSt RPiGHTNFSSt P[F AMU SOlJAPE 

THIS SURPOMTINF WILL ^TOp THF PftOC-pRAM IF THF 
SEGMENTS OW THE PAw DATA TAPF APF NOT IN THF 
SAHF OPOFR AS THE SEGMENTS HFOUESTFO 


PRE06??0 
PRE06P30 
PRE06240 
PRF 06250 
PPF06P60 
PPF06270 
PPF06?fi0 
PPF06290 
PRE06300 

COMMON /PAWO AT/ MSTf<.rn.RnrHST*tH0FRH«PPMR6Tni*n.4>, pSfoSIpo 

i • IPOSaO* ^OATPR O I * 1 9) «S0&IPG ( n • 191 «PtEP ( 1 1 * 1 9> PRF06330 

? *PIFSt 11.19) *ARHTETni tl9*A> ,AGPEEN(Ut IV, 4J 

CO^HON /^fAKSn/ YMF/iNG(4), YMFANR(4l* YS0*.<4), YSOBU) PPF06360 

COMMON /TAPFPO/ UJNTT.IFPST.FSCAM,SAMENn.SAMlNC.RFA(>yfNSCAN» PRF06370 

« tao) ,NBUFS,FILFNO<UNfNnpPF:063P0 

*L INifJC^NSAMPf NOChAN. IFflPMT PPF06190 

COMMON /I SrG<5/KUPrYl'.Kl)RSFB.KlJ»nAT,LTYPfriO) tLSFGNOOO) »LSEROT(30 )pSeJ!^A10 
I .MisFGS PRFnf.4?n 


ni--FNsrotJ FFTVFroo) 
njMFN<iION BLOCK <4) 

IhTFGFO FETVFC. PLUCK 

r>AT4 L45TFL /O/ 

DATt “LocK/i n* un» 10*1 f), i<)n, 10 / 

'"SJveF/l,?.1,4,G,6*7*H.9.1 0,11.12,13,14,15,16/ 
OaTA uOFEAT /16/ 

KDATA(400) 

tSTFGF- r)ATA,FL.SAMSTP,5AMENn,SAMlHC,IE,;H 

riATA IFIPST /o/ 

f-ATA 15/0/ 

PIPFNGinN IS0IL(4) 

CO«*«ON /CK/1CK,JCK 

5FT OA^ DATA PAP SWITCH TO 1 
IPPGAO = 1 

FFAfl HFAOFP 

IF1I.F S LA5TFL 

"" ^r'/[A??^u'^?r,Fno^^-^^? 

ITAWF=ITU 
luMT Biru 

CALL TAPrtOPIlTAPE.IFlLF) 

LASTFL = LA5TFL ♦ 1 


PFFOH'tAT AMP fHFCK FOR CORRFCT SEGMENT 
ISITF = iri(?ft> 

WR1TF(6,9<J9> ISITE 

OQO F(JP'‘AT (• RAW DATA TAPE SFG,N0. = * , 15) 

C MOVE MSTRIO IN A4 format TO IimFC IN 14 FORMAT 
PFWINO TO 

WRITE (30,30) MSTRIO 
30 FOPvaT <A4I 
PEwInO 30 
PFaO(30.3U IORFC 
format (14) 

WRITE (6,9944) MSTRIO.IOPFC 


9‘J44 
C 

C CHFCK segment MUMhFRS (14 FORMAT) 


PRE06420 

PPE06430 

PfiE0644n 


format (IH ,*MSTR10=», A4,» IPRFC=«,A4I 



FflPTPAN 11/ 
FII.F •'l-FOPT 
omT 


oniB 
on ip 
on/.!) 
no-) 


OOi? 

ontT 


00*4 

no4= 

no4<- 


OOi.7 
or_t. 
on- > 
on-n 

on- ' 
on-? 

00^7 

noB4 

noBB 


on-4 
00 = 7 


nn=n 

noBo 


OOf 0 

on*') 

on-? 

on*''^ 

00-4 

no<-Bi 

on-Fi 

0047 

noAu 

nn-<j 

0070 

0071 

007 ? 
0071 ' 


0074 


007S 

flor* 

0077 

007 B, 

007P 

noon 


fi LFWFL 21 


npOORO DATF = 79003 16/‘51/*;2 PACE 0002 


f 
r 

490 

700 


701 


IF tlSlTE .NF. I 09 ED (50 TO 9000 
CnOOFTT «F( 5 'tEMT FOUNIJ, CALCULATF SOIL LINE NUMBERS 


no 700 !=!.* 

I 90 IU(II=in(I*lA(i-l) 

-*-ITFt6.701) USOILUl .1 = 1.4) 

Ff'UM»TUM .mu.* THF SOIL LINF NtIMPEBS ARE ». 4 I 5 ) 


r SFT FILF TO FIRST LINF OF DATA 

CA| L FI.OINT (BLOCK. FETVFC.NOFEATI 
r WRITF (O.SQSS) 

W 94 S FOUpATt* EXIT FLOINT*) 

r uFbO a«iD P./OCFSS LINFS I THROUC-H H 


sFT I INF I IFOOPATIOM 
no ?90 II I* F =1.11 

fail LiNF^n ikoata. fnotap) 

IF (Fnptap .fo. -II GO ro hoo 

*-TOPF OATA On this LINF INTO 1 X 19 X 4 X 4 hUFFFR 
f'll till I = 1,19 
(I'l SQ -r = 1,4 
fiO SQ 1 = 1,4 

T'riFX = I»( j-l)»19.<K-l)«7ti 
Ii'ATA(I,),K> = KOATAdNnEXI 

IF(ILI'IF,Fr,irK,ANO.I,FQ,JCKI WRITE (G. 99 S 0 I I . J.K . IDATA ( I . J.K ) . 


49=0 

S9 

r 

GO 

r 


lAriFX 

fOPMATClH .lOX.IISt* inATA 

rn.iTiNuF 

roMiNiiF 


'.IS.* INOFX «,ISI 


ISO 

r 


'■AI.CilLATF oijirhT ano GRFEN Ff)« FACH SFT OF 4 NUMBERS 
no ?10 ISET = 1,4 
no ?oo mixFL = 1.19 - 

MOUF FltO« TRIPI.F niMFNSION APOAV TO SINGLE IliMFNSION ARRAY 
no ISO Kx = 1,4 

LOATAIKK) = inATAnPlXFL,KK,TSET> 


ACTUALLY CaLFULATF BRIGHT AND RREEN 
LS = ISOIL(ISFTl 
CAl L CALCUL (LDATA, LS. BRIT, GRN) 
tFIILINF.PO.lrK.AnO.miXFL.FO.JCK) WRITE (6,99S1) 

» (LDATAt n ,1=1,4) ,LS 

, 9=1 FO>'«AT(l« ,inX,.LOATA t,4is,l SORL '.IS) 

Rllf »f,T( IL INF, miAFL, rSFT) = (RRTT - YPFANB t ISFT ) ) / YSORUSETI 
Pni-tFN ULTA'F. IPlxtl, ISFT) = (P9 n - YMFANS(IbETn / YSOndSFTl 
IFdLTNF,B0.irK,Auri. IP1XFL.F0,JCK1 WRI TF ( 0 , 9 «G 3 1 

* II. INF. miXFL. ISFT, Owl T, YMF ANSI ISFT) .YSDfldSFT) 

IF dLIt'F.FO.irK,A.m.TRIXFL,F0.JCK) wPlTF I6,99b2) 

• II INF, I?IXFL. ISFT, r,RN. YMF aNO(ISFT) .YSDGdSFTl 

90=,? FOOMATdH ,TtS«* ORN •,F10,4,. MfONR ..FlO.i.t SDG I.FIO.A) 
OOP? FOHMAIdM ,3is,» HRIT *.Fm.4,« PEANR *,F10.4,* SOB '.FlO.Al 


?0O 

?m 
c 


ABPIFTdL INF. TPIXFL. ISFT) 
APBF.FN ( IL INF, IPIXEL. ISET) 

CONTINUE 


= ABS(»DFiRRTdLINF.IPIXFL»ISETI) 
= ABS (RUGRENdLINE. IPIXEL. ISET n 


CONTINUE 

CALCULATE SOUARF AND PIF 
no ?S0 IPIXFL = 1.19 

suit SOUARF ANO PIF FOR 4 SFTS 
SGAIPHdLIMF.IPIXFL) = 0. 

SUAlPGdI iNF.IPtXFL) = 0 . 

PIFRdLINF.lPiXFL) = 1. 

PlFedLlNE.IPIXEU = !. 

no 240 K = 1,4 

l‘:RMBB(ILlNF,IPIXfcL)=SOAlRHdLINE,IPIXFL)*(ROPRC.TdLINE.IPIXEL,K> 


PPE 009 BO 
PPF 06990 
PREQ 7000 
PRF 07010 
PRF 07020 
PRF 07030 
PHF 07040 
PPF 070 SO 
PRE 07060 
PRf 07070 
PRF 070 B 0 
PRF 07090 
PHFO rioo 
PPPOTllO 
PBFOnPO 
PRE 07130 
PPF 07140 
PRE 071 SO 
PRF 07 mo 
PRF 07170 
PRE 071 fl 0 
PPF 07190 
PRF 07200 
PRE 07210 
PRF 07220 
PRF 07230 
PPF 07240 
P 9 E 07250 
PPE 07260 
PRF 07270 
PRF 07280 
PRE 07290 
PRE 07300 
PBF 07310 
PPFn 7320 
PPF 07330 
PPE 07340 
P 9 F 073 SO 
PRF07360 
PRE 07370 
PRF 073 fl 0 
PRE 07390 
PRE 07400 
PRF 07410 
PRF 074 P 0 
PRE 07430 
PRE 07440 
PPF 074 S 0 
PPF 074 ft 0 
PRE 07470 
PREO 74 B 0 
PPF 07490 
PRE 07500 
PRE 07510 
PPF 07 S 20 
PRE 07530 
PRFO 7 S 40 
PRF 07 S 50 
PRE 07 S 60 
PRE 07 S 70 
PRF 07580 
PRE 07590 
PRF 07600 
PRE 07610 
PRF 07620 
PREn 7830 
PRF 07 fi 40 
PRE 076 S 0 
PRF 07 G 60 
PPF 07670 
PRF 07680 
PRF 07690 
PRF 07700 
PRF 07710 
IPRF 07720 
PRE 07730 




Fonrci'l IV LFVFL 


REiiOftn 


RATE = 7900T 




Fti.F t-^EPPr 


noi-i 


00 ? 
004^ 
00*a4 



r 


r 




r 

OOA«i 



r 

nfi 47 

r 

no4<j 



no'-o 

nn-J? 

nn'ii 

no'JA 


nooq 

nnc 7 

nn=ia 


nnoo 

0100 

Olol 


oin? 

rim 

oioi 


01 OA 


<1107 

njo« 

niivi 

ni in 

0111 
01 1 > 
nin 


0114 

Olio 

0110 

0117 


c 

r 

r 

f 

10 O 


?! 


00»IfiGnLINF«IRIXFL>='5<)AIRR(ILINFf IPIXEL>*(Rf)fiRFHnLINFtIPI'lEL.K) 
1 »• ? 

PIF'=(ILINF,TPIXFLI=PIF0< ILINF«IPrXFL)«(ARRIFTULINF*rPIXFL*K) ♦!.) 
PlF0nLIHF,IPrxeU=PIF6(It lNF,fPIXFU*tAGkEFNaLlNE*IPIXELtK>*l.» 
COi'UMJE 

CONTIMJE 

CONTINUE 

Ii.nP 40 s 0 
w- ITF (A«0«l4O) 
fr».'i 4 T(» FXIT fifODRni) 

Rt-TUPN 

«*ao*<)*a»e>»»» ERROR MFES4GES »«*****»«••** 


IP MOT FOlun, a&s Thepf 4NV PATA on file? 


IF (IFIR4X .fo^ 0) go TO 040 
•VAJTF (0,110) IRM.NO 
lUl FOuwaTI* un DATA ON UAU DATA FILF whFLF LOOKING FOR SEGPFNT 
jCrfpu - [doFRR ♦ 1 
PfTUkK 


in NOT Oh FILF 


140 hklTE {0.14A) "iSTkin 

14G FO'^'AI (lx, ta, t not on RAW OATA FlLfi) 

Iwr-fOR = IROFPR » 1 
'RH TllPf. 
f 

C INCuFFICIFnT I tme information, must re programming error 

HOO k-ITF (A,AI<U 

-10 H^-^AT (* INSOFFICIFNT LINE INFORMATION ON RAW DATA FILE*) 
STOP 
r 

f files OUT OF ORDER OR FILF MISSING FOR THIS SEGMENT 
ROOD PE-’INr I TAPE 
r 

no Rino I = i.NOStGS 

IFIIF = I _1 


f 

vino 

r 

Rios 


AKtP OVFR IFILF FILES ANO RFAO HFAOFR RFCORO 
TAIL TAPmOR (ITAPL, IFILE) 

SAVF NiiuRF} OF I AST FILF 
LASThL = I 

CMFCk FOR CORBFCT SFI-mENT 
ISITE = IU(?A1 
wkITF(A, 90R) ISfTF 
IF (ISirf .FO. tORFC) GO TO o?no 


roNtih'UF 

-RITF (O.OlnS) mSTPIP 

FOOvaT <♦ HO RAW OATA FOR '.AAI 

return 


t A4 


FfR'NO, WRITF WARNING MESSAGE ANO GO TO CONTINUE PROCESS 
O?ll0 write (0,070S) 

opus FORMAT (« FXCFSSIVF PROCESSING TImF OUF TO ERROR IN ORDER OF 
1 RAW OATA FILFS», /, • IN PPOCEOIIRE FILF',/) 

GO TO ARS 

END 


)PRF07740 
PRE077S0 
PRE 07760 
PRE07770 
PRE077B0 
PRE07790 
PRE07R00 
PRE07610 
PRF07820 
PHE07fl30 
PRE07R40 
PREn7flS0 
PRF07B60 
POFn7fl70 
PRE07Rfi0 
PHf OTPRO 
PREn7ROO 
PRE07910 
PPE079P0 
PRf 07930 
PRF07940 
IPRF07OS0 
PRE079A0 
PPF07970 
PRE079B0 
PPF07990 
PRFflrtOOO 
PREOSniO 
PRFOAO20 
PRF0A030 
PRE0S040 
PHFO«OSO 
PRF0H060 
PRF0RO70 
PREOPOBO 
PREOB090 
PRFOfllOO 
PREOAllO 
PRFOS120 
PRE0«130 
PRF0B140 
PRFOMISO 
PRF0S160 
PRFDMI70 
PRF0S180 
PRE0B190 
PREOA200 
PPFO«710 
PHF0«??0 
PRF 0 BP 30 
PRE0m?40 
PRFOBPSO 
PRFOAPAO 
PPE0n?7n 
PPEO'ipBO 
PPE0B290 
PRFOBIOO 
PRF0B31O 
PME0«120 
PPF0B330 
POF 0 X 140 
PPE0B35O 
PRF0n360 
POfnB370 
PREOMSflO 
PRE0R390 



A. 5 SOFTWARE SUBPROGRAM NO. 5 (CALKEY) 


CALKEY calculates greenness and brightness factors. 

A. 5.1 Linkages 

CALKEY is called by PREPPT. 

A . 5 . 2 Interfaces 

Interface is accomplished through common blocks /BIOSTG/, /AI/, 
/SEASNS/ . 

A. 5. 3 Inputs 
See Appendix D. 

A . 5 . 4 Outputs 
See Appendxx D. 

A. 5.5 Storage Requirement 
Program size - 1338. 

A. 5. 6 Description 
See Appendix D. 

A . 5 . 7 Flowchart 
N/A 

A. 5. 8 Listings 



Cz6 



FnoT&ftN tv G LFVEL 21 


CaLKEY 


GATE = 79003 


16/51/52 


PAGE aool 


FIl F dupopT 
non? 

aQA? 

nnn<i 

onoA 

onoA 

onnt 


nnnfl 

nofio 


noto 

pon 

(ini? 

oott 

0014 


001 A 
oniA 
0017 
oolo 


0019 

on?o 


0021 

OOP? 

nopi 

0024 


0025 


AUOPOUTtNE roLlfFY (ITYPF) 

PUOpilSF : TO CALCULATE VA«IOUS KFY5 
COl^HON /FUnATS? ICNOfYtAI tAlCANK 

C0>'«ON /MF4NS0/ yMEANG( 41» Y«FANP{Alt YSflGUlt Y5r>R(4) 

C(im“OM /-ilOSTrFOIOSTGtO) MT(?.R) »FTrt';T(6»0) , SFCONO ( 6tni 

common / 4I/IAIHF0(7T,?1 , FA IFOR, lOAI » ATCMNT ( U , 19) ,AIDATE(A) 

1 .NOLI'IF .tiOPIKL. 1 4> .1 AIVEGU) »LARLAI (1 1 •19) •! AIEND 

? .MTCHAI.LNFRObtA) .ISFaSN.LNFSUA) .LNES2(A) 

COMMON 2SF ASW/ x-ltt>(4,n.?) . XMFONGIIT,?) • XRFNG? ( 1 3. ?) ♦ 

1 VMf. AM i ( 11.3) . »■ ff,F 2(11,?) , <;n(i(13,71, SOG2ni,?)« S0B(13,2). 

? A'lH?tl3,2) -,LNFAFA(4) 

fiATA Hvo^F^^/l‘^-/ 


n-PUT 

TTYRF 


= AITY2F (THIS IS NOT CSJPfiFMTl Y tJSEO) 


OUTPUT 

t-i TFT 
(.PFFN 
CffKY 
AICAT 

MATCn CLASS RFSPONSE ON OATA CAPO TO TAPLF 
I«liM = i) 

AICAflK = 9. 
r 

hRanCHJMG on at TYPF as of SFPTFHRFR 26 , 197 B, MIKF POPF*»*» 
C IF A I TYPF IS NOT P, 7 FH 0 VALUFS 
C IF (I TYPE .NE. 1 ) GO TO 1000 


r 

r 

ISO 


A RESPONSE TNTFRVaLS IN OATA CAPO 
no wOf) 1 = 1,4 , 

SFT I INF HUHPFP ON SFASOUAL TAHLE from BIOSTAGE on header CARO 
Lt> FTP = LNFpn-»(l) 

SFT NOV position in biostage table from PIXFU CAftD 
IVPFSP = IflVEG(I) ♦ 1 

CF Ffjp FIPsT CLASS MF SPO (SF 

IF (FIRST (IVPfSP.LINFTS) ,NF, HYPHEN) GO TO 3S0 

CK FOLi SFCO'lO CLASS mFSPONSF 

If (SFCOROdVPFSP.LIHFTB) .NF. HYPHFNI 60 TO 360 

nfitmfp first nor sflomo class response 

I SUM = ISOM ♦ 10 

ir lYFYd) = 10 

Alr\Ni« = 1 
GO TO 400 


FIRST CLASS PFSPOHSE 
IC> KFY(I) = 0 
GO TO 4-)(l 
C 

C sFCOND n ASS RFSPONSfc 
C SFT AtCANK 
140 AICANK = (I 

IF (ISUH .GT. n AICANK = 1 
ICfKFYd) = 5 
I SUM = ISIJH * s 

( 

f 

C CAI.CULATF seasonal constants 
41)0 CONTINUE 
r 

C CALCULATE means 

C IF BIO CONSTANT IS 7EP0, MEAN AND STANDARD DEV. ARE CONSTANTS 
C 


PRF10290 
PRF10300 
PRF10310 
PREI0320 
PRF 10330 
PRE1O340 
PPF10350 
PRF 10360 
PPF10370 
PRF10380 
PPF10390 
PRF 10400 
PR£ 10410 
PPP 10420 
PRF1UA30 
PRF 10440 
PRFlOASn 
PRF] 0460 
PRE 10470 
PBF104BO 
PRF 10490 
PHF10500 
PRF10510 
PPF105P0 
POE10530 
PRF 10540 
PPF10S50 
PPE10S60 
PREl 0570 
PRF105PO 
PRE10590 
PRFI 0600 
PRFiaslO 
*»PRH0620 
Pnei0630 
PRF 10640 
PRFI 0650 
PRFI0660 
PPFl 0670 
Pfi£10680 
PRF10690 
PRE10700 
PRF10710 
PRF. 10720 
PRF10730 
BRF10740 
PPFl 07S0 
PRF]0760 
PRE10770 
PPFl 0780 
PPE10790 
PRFlOBOn 
PRFI 0910 
PREIOOFO 
PRF) 0830 

Biili 

PRE 10 B 70 
PRE 10880 
PRF 10990 
PPFl 0900 
PREl 0910 
PRE 10920 
PRF 10930 
PRF I 0940 
PRE 109 S 0 
PRF 10960 
PRC 10970 
PRFinOfiO 
PREl 0990 
PRFI 1000 
PREl 1010 
- PREl 1020 
PRFI 1030 
PREl 1040 



FnnToa'j tv G ifvfl 

rjir PufPtJT 


r 


no?7 

r 

nn?ft 

r 

nn 

np^ 1 



i" 

c 

rtp \4 
or' 

«-on 

An-^^ 

r 

Ap*^7 

np*\^ 

AO-O 

r 

AA4 } 

*^10 


C 

C a 

004T 

1 OOO 


r 

P P44 

nr 4<- 
nr.. 7 
nn^A 
00 40 

po-o 
001* 1 
00^3? 

lino 


21 


C4LKFY 


DATF = 79003 


If./'Sl/';? 


f>(l ■510 I = 1*4 
U»iFTH = UNFSF4<1) 

IF (ltHTOn.LINFT«tISFflSN) .NF. 01 C.0 TO 500 

Y^'FAf.Gm = X«F4r GtLlNFTP. I5F4SM 
Y«-'e ( 1 1 = YFf ll^ti (L INFTh. I5F4SN) 

Y^r.r-tn = r5Fft5N) 

vc.-ietn = 5 DH(LINF;Tm*I5F4=:N1 

GO TO cjo 

10 rof-STiNT T5 N0K.7FP0. «E4N 4N0 STANOaPO OEV. MUST RE CALCULATFO 

oifFl = -yPIOt^.LItll-TR.lSFASN) 4 AIHOPBUI 
f>lFF? = -aiHOKH(t) 4 »R10(44l INFTH, 15FASH1 

V e-AMC-t I )=ntFF^»»PFftNO(Lt^'FTP, !SF«<5N> 4mFF2<»yMFMO? (LINFTR 4 t 
Y-'F 0N9(l)=ntFFl*»FFANB(LINETP,iSe ASNl4l^IFF2«llMFNH2(LINFTB.IStASF') 


Y>-oo(n = ntFFt » snfitt iNtTp4lSFASNi 

YCtM(I) = OfFFl » S0H(LINFTRtI$EA5N) 

riifTtMic 
Pc TllPN 

T>P4 MU P. ZFPn V4LUF5 
f 1,1 TIKiiF 

41041,“' = 0 
00 mo I = 1 4 4 

jrt CFY(I) = 0 

Y<o*.,rjtii = n. 

rt c nf,p ( [ ) = (1, 

Y*>o MI) = 0. 

Y'.''G(l) = n. 

CO' TIN'IF 
F' O 


niFF? « SORPtLlNhln.ISFARN) 
DIFF2 « S0R2 tUNFTfi, rSfcASN) 


PRF11050 
PPF 11060 
PPFI1070 
PRFU080 
PPF11090 
PREinOO 
PRF 1 11 1 0 
PRF1U20 
PRF11130 
PPE11140 
PRE11150 
PPF11160 
PRE11170 
PRFll IftO 
PPFH190 
PPF11200 
PRF11210 
PPFil??o 
PRF11230 
PRtl 1240 
PPF11250 
POE11260 
PPF11270 


m\ 


12 R0 
.1290 
PPF11300 
PRFl 1310 
PPE11320 
PRF 11330 
PRF 11 340 
PWE1I350 
PRE113ftO 
PRF11370 
PRFliaflo 
PPF! 1390 
PPEl 1400 
PRF11410 


PAGF 0002 



A. 6 SOFTWAEE COMPONENT NO. 6 (READGT ) 

READGT reads one set of ground truth data. 

A. 6.1 Linkages 

READGT is called by PREPPT. 

A. 6. 2 Interfaces 

Interface is accomplished through common block /GT/ . 

A. 6. 3 Inputs 

Ground Truth Dot Data File from unit number 23. 

A. 6. 4 Outputs 
None 

A. 6 . 5 Storage Requirement 
Program size = 1158. 

A. 6. 6 Description 

The ground truth dot data is read into a common block /GT/. 

A. 6. 7 Flowchart 
N/A 

A. 6. 8 Listings 





COQTPAN IV r, LFVFL 

Fji P i-^EPPT 


non? 

onm 

onrs 


oni'c 

nnoA 


no?i 


in?* 

nn?s 


nn?* 

on?7 


nn.>fl 

00 ?'» 


nn^n 

nmi 

om? 

nmi 


(im* 

nms 


21 


SUPPOUTI.\iE »E»0«'^ 


HEAOST 


OMF = 7<)0n3 


16/51/52 


PA6F 0001 


PUBPC5E — REAO A 5tr OF GOOUNP TBIJTri OATA 


1 


IRT(11*1P) . 
common /mSK/M4SK(11»1<)) 


COMMON /LO/IUMT 
data tntiT /*noT •/» 


<5FG />S1TE»/. LA5TSG /*FRST*/ 


GxOUNn 

uPtTE 


TOOTH noTB 

(A,90*p( 


PFAO from 


LON IT 


15 A HFAnpR RECORD 


PRE0A590 
PRF04600 
PRE04610 
PBF04620 
PRF04630 
PRE04640 

rOPMON/LSEGS/ KIJRTYP.KIIRSEG.K11RDAT,LTYPE( 301 *L5EGNO(30) .LStGDT nO 1 POE04650 
.((05FGS o«Fn*ft60 

COW'^ON /GT/ IRT(11«10). IGTFRR, I6TFTL PRF04670 

PRE046fl0 
P«E0*6«)0 
PRE04700 
PRFn4710 
PPE0472O 
PBF04730 
PRF04740 
PRfc047SO 
PPFn*7G0 
PPEn*770 
PRFO*7ao 
PRFn4790 
pRF04pnn 
PRE04fll0 
ppFn*p?o 

ppFn*fl3n 
PRF04P40 
PRF04A50 
PRFn*fl60 
ppFn*87n 
PREOAPPO 
PRFn*fl90 
PRFOA900 
PPE0*91Q 
POF04920 
PRF04930 
PRE04940 
PR£n4950 
PRFO4960 
UPF0AP70 
PRF04O«0 
PPF0A990 
PRF05000 
PRF05010 
pPFnaopn 
PRE0S030 
POF05040 
PPEn5050 
PRE05060 
PRF05070 
PRF050B0 
PRF05090 
PRF05100 
PRF05U0 
PPF05120 
PRE0S130 
PHF0S140 
POF0S150 
PRF05160 
PPE05170 
PRFniino 
PRF05190 
PREOSPOO 
PRF0S210 
PRF0S??0 

IF ThFOF ARF MDSE FILFS, SKIP TO FNO OF FILE AND GO TO READ NEXT FllFPRFObpIo 



nnoT 

*94 A 

FA^MAT(* FMFP ►^F40<>Tt) 



c <;ft r*f5ou'in i-qpoh switch to o 


non- 


IGTFTL.= 0 



c SfGt^FNt MUMPFiV 4N0 CE^'TTFY THaT THIS 


one* 

10 

mFa'i (lUNiT ,?o.FNn = oinn) ISFG. Iogt 


oolo 

?') 

Ff..M6r (A*. 4X« AA) 


non 

#" 

IF USSR ,MF, KSFGI go TO RSOO 



c CFGMF'IT rARiJ OFAO. IS IT THF RIGHT OMF 


oni ? 

?S 

LASTSG = inr-T 


non 

f- 

IF IIOGT .nF. KIIRSFGI go TO 9100 



( 

r 

c 

100 

ATChlMG UECOBn, RFAD GROUND TRUTH 


nou 

CCNTIf HE 


nni*, 


WRITF(fi, ISO) 


nni A 

1*0 

FOuiAT(//. 10 V,ir,|voi)MO TRUTH HEADER*) 



r 

MwtTF(A,99*9) 


noi 7 

«>940 

FOwmati* FNTEP RI'LOF*) 

no 1 d 


rackspaff luntt 


rojo 

r 

call rdlof 

nn?n 

r 

CALL FSF"FL (LUNIT. I.ISTAT) 
WUI TF (^,90*7) 



nfi?^ 

S947 

FOP.-AT(» F/IT RFAOGTM 




op Tl)0. 


aooaoAooaa ERROR CONOfTlONS o»»»***»*o 

SFOUFNCE NIJARFRS 00 NOT MATCH. PEWIWO TAPE AND LOOK AT OTHER 
r.POUHO TPtiTH FIIFS 
CONTI Hi IF 


Pino 

C 

RFMiNf) LUNIT 
KOIIMT a 1 

C read FIRST PFCnpO AND CHECK SFGMFNT NUMPER 
P110 PEAH (U)NIT.?n,FN0=93nn> ISFG.IOGT 
IF (ISFG .MF. KSFG) go to 9S00 


SFGMF'IT CARO RFAD. IS 
LASTsn = inoT 
IF (lOGT .FO. KURSFGl 


IT thf right ONF? 

GO TO 9??S 


IF (KOiinT .FO. NOSFOS) go TO 9Ton PPFOSPSa 

KOliNT = m)|i»'T ♦ 1 PPF05260 

C MOPF GROUMO TRUTH FILFS. SKIP TO END OF THIS FILf PRF0SP70 

call FSFMFL tUJtin.l.rSTAT) PRFOS?80 

^ GO TO 91 1» PRF0S290 

r CORPFFT file found. HRITF warning MFSSAGF PRF0S310 

9??S WRITF I6.9PP6) PRF0S320 

9??ft Format <• FXCFSSIVF PROCFSSING time OUF to FRROR in specifying ORDPREOS330 
lER OF files in PROCEDUPF FltF'l PRE0b340 






•O <S 




XT 



FOPTOAM IV 
FlL^ ppfPPT 


noi7 
no’^J 
nr.%'5 
f»n-n 
nn„ I 


no4? 

on^#s 

nn^T 


G LCVFI ?J 


PFAtlGT DATE = 7<i0n3 - 1A/S1/G2 PAGE 0002 


• r-0 TO 100 

c 

f ERF '> 0 T FOUNH 

‘.inn wi-iTF (A*mni) kii>;sfg 

•MOl FO.J*'ST (» f>a GUOUNO TPKTH FRF FOM SFGMFNT '.AA) 

I(.TF3J = IGTrtJR * 1 

If.TFTl = 1 

PCTllRfi 

r 

r rB-r>« OUT OF nnnFP 

'■GOO *h 1TF (0,<.c;ni> UAbTSG 

out of 0 WDF« foliowing SEGMENT 

r TBjCPt‘*FNT TOTAL COUNT ‘oFFRROPq, SfT FATAI FNROP FLAG 
IfTFPP = [GTFRP ♦ 1 • 

KTFTL = 1 

MFTUPN 

ENF 


PPEOS350 
PflEOSTGO 
PPFOS370 
PPF0S380 
PREOG3<JO 
PPFOSAOO 
PBFOGAIO 
PWF0S420 
PMEflS430 
PPF0G440 
PWF05450 
i,A4) PPF0G460 
PRtOSATO 
PPEnSAPO 
PRFnS490 
PPLOFSOO 
PRE0‘>510 
PRF0G520 



A. 7 SOFTWARE COMPONENT NO. 7 (WRTPPT) 


WRTPPT writes one record to the LIST Variable Input File (FILE 
PPTIN) . 

A. 7.1 Linkages 

WRTPPT is called by PREPPT. 

A . 7 . 2 Interfaces 

Interface is accomplished through common blocks. 

A. 7. 3 Inputs 

A. 7.4 Outputs 

LIST Variable Input File to unit number 15. 

A. 7. 5 Storage Requirement 
Program size = 1830. 

A. 7. 6 Description 

The header record and data files are written to the LIST 
Variable Input File as described in Table 3-5. 

A. 7. 7 Flowchart 
See Appendix A. 


A. 7. 8 Listings 
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A. 8 SOFTWARE COMPONENT NO. 8 (RDLDF ) 

RDLDF -in conjunction with PPTLAC reads LACIE foirmatted dot files. 
A. 8.1 Linkages 

RDLDF is called by READGT and calls PPTLAC. 

A . 8 . 2 Interfaces 

RDLDF interfaces with other routines through the common blocks 
DOTVEC, INFORM, GT, MSK, and LV. 

A . 8 . 3 Inputs 

Inputs to RDLDF are from the program PPTLAC. 

A. 8.4 Outputs 
N/A 

A. 8. 5 Storage Requirement 
Program size = 14460 

A. 8. 6 Description 

RDLDF in conjunction with PPTLAC read a LACIE format dot file 
from unit LUNIT. 

A. 8 . 7 Flowchart 
N/A 

A. 8. 8 Listing 
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A. 9 SOFTWARE COMPONENT NO. 9 (PPTLAC ) 

The new subprogram PPTLAC will read and decode the LACIE formatted 
field (dot) cards. This is the same program as FLDLAC except it 
read from unit LUNIT instead of unit 21.. 

A. 9.1 Linkages 

PPTLAC is called by subprogram RDLDP. Each call to PPTLAC will 
provide, upon return 

1. a dot (field) description (first return) 

2. transfer to dot file writing (second turn) 

3. transfer to dot file writing (third return) 

A. 9. 2 Interfaces 

PPTLAC will interface with other routines through a calling 
sequence and common blocks DOTVEC, LU, and INFORM. 

A. 9.3 Inputs 
Calling sequence: 


SUBROUTINE 

PPTLAC (FIELDS, 

STAMNT, $, 

$, $, IPT, VERTEX) 

Parameter 

Dimension 

In/Out 

Description 

FIELDS 

(4,250) 

Out 

Category name and dot type 
for dot I stored in FIELDS 




(1,1) and FIELDS (4,1) . 

STAMNT 

1 

In/Out 

Initially set equal to 1, 
switch to indicate dots 
being taken from currently 
read card. 

$ 



Returns to DOTS. 

$ 



Returns to DOTS . 

$ 



Returns to DOTS . 

PIT 

1 

In/Out 

Initially set equal to 1, 


index number for field 
vertex information, 

5^ 76 



Parameter 

Dimension 

In/Out 

Description 

VERTEX 

1000 

Out 

Vertex information for each 


dot. 


In addition, PPTLAC stores the FLDINF vector in common block 
DOTVEC with rectangular coordinates of field enclosing each dot 
field. 

A. 9. 4 Outputs 
N/A 


A. 9 . 5 Storage Requirement 
Program Size 


A. 9. 6 Description 

The subroutine reads of dot cards of the form 

DOT (TYPE) (CATEGORY NAME) { {LAC IE NUMBERS}) , i.e. , 

DOT 1 W 2 5 10 29 32 54 110 


"TYPE" cards are used to prefix a set of dots. This will remain as 
the default option. The association between LACIE numbers and 
training field coordinates is as follows. 


LINE 

NUMBER 


SAMPLE NUMBER 



10 

20 

30 

• 

• 

190 

10 

1 

2 

3 



19 

20 

20 





38 

30 

39 





57 

• 



LACIE 




lio 

191 


NUMBERS 



209 



7 / 



3t is intended that tfo expansions of the LACTH card format he 
ancorparated. 1'heso are 

1. frec-ficld locations of all information cards, cols 1-72, 
data items separated by at least one blank, with the 
restriction that DOT identifiers start in col 1, and the dot 
type cippear in coiumn 5, 

2. In order to cover pixels not included in the LACIE numbering 
scheme, input dot numbers wall be represented as the numerical 
equivalents of 

N = L*10^ + S^IO"^ + LACIE 

where 

LI = #lines to be incremented (up or down) from the line 

number mapped from the LACIE number. The convention will 
will be 


LI 

negative 

to 

increment up 

LI 

positive 

to 

increment down 

LI 

zero 

to 

avoid incrementation 

^samples to be 

incremented (right or left) 

SI 

negative 

to 

increment left 

SI 

positive 

to 

increment right 

SI 

zero 

to 

avoid incrementation. 


For example, Ll-2 , SI= '-3, LACIE = 38 yields 
N = 2*10^ -3*10"^ + 38 = 199970038 

would correspond to the pixel at (187,22), ie, the pixel at 
sample number 187 and line numlDer 22. 

Letting LI= SI-0, LACIE = 38, obtain 
N = 38, correspond to the pixel at (190,20). 



7 ^ 



Reduction of the value of N to sample and line coordinates will 
proceed as follows. 

= [Nj/10^ (truncated to integer) 

if [n 1-N, *10^^10^ set = N^+1 

LI = N^* sign (N) 

jN2!= N-L* 10 ® 

N3 = |W2|/10^ (truncated to integer) 

if 1 n 2|-N3*10^^10^ set = N^+1 
SI = N3* sign (N2) 

LACIE = N 2 -S* 10 ^ 

1 

LR == LACIE ROW# = (LACIE/ 19 + 1 ) *10 

LS = LACIE COL# = (LACIE- ( (LR- 1 ) * 19 ) /lO) *10 

where truncated divides are specified. 

Finally, 

L = LR+LI line number corresponding to N 

S = LS+SI sample (column) number corresponding to N 

In the scheme to follow, each dot will be considered to be a 
field. All type 1 dots will occur prior to type 2 dots; i.e., 
the input cards cannot be scrambled with respect to dot type. 
Otherwise, arbitrary order to cards and LACIE numbers on each 
card are permitted. 

The function of the various parameters is as follows. 

iPT index number for dot (field) vertex information 

N 0 FLD 2 number of fields (dots) for dots of current type 

(common block INFORM) 



SWCHG 


number of times dot type has changed. This must be 

t 

, no greater- than 1 or an input error will have occurred. 

SWITCH flags a dot type change. The second return will be 

taken for subsequent writing of a dot field, (internal) 

STAMNT if = 1, a new dot card has been ready if = 2, dots are 

being processed from a previously read card. 

TYPE dot type being processed (common block DOTVEC) 

The calling sequence of PPTLAC is the same as that for FLDTYP, 
and the meaning of FIELDS and VERTEX remains the same. 

IF (STAMNT. EQ. 2) G(t) T<{) 30 
IF (.NOT. SWITCH) G(}) T(j) 2 0 

10 READ A CARD, extract TYPES from 'column 5 
If ( TYPE. EQ. TYPES) G(j) T(j) 20 
If (SWCHG. NE.O) error exit 
TYPE=TYPES 

20 RE-READ CARD, extract 

CATNM category name 

NDCARD # dots on this card 

NDOTS(I), 1=1, NDCARD dots on this card 
If (NDCARD. EQ.O) G(j) T(j) 10 
ICNT = 0 
STAMNT = 2 
SWITCH = .TRUE. 
g 4) T(f) 100 



■30 If (ICNT.LT.NDCARD) GO TO 100 
STAMNT = 1 
ICNT = 0 

READ A CARD, extract first 4 characters and store in IDUM, 
extract TYPES 

If (IDUM.EQ.ENDBCD) RETURN 5' 

If ( TYPE. EQ. TYPES) G(j) TCj) 20 
SWITCH. = .FALSE. 

SWCHG = SWCHG+1 
If (SWCHG. GT.l) error exit 
N({)PLD2 = 0; TYPE = TYPES 
IPT = 1 
RETURN 4 


100 INCNT = ICNT+1 

NOFLD2 = NOFLD2+1 

Find sample and line -numbers S and L from NDOTS (ICNT) as 
described previously. 


Store 



FIELDS 

(1, 

NOFLD2 ) 

FIELDS 

(4, 

NOFLD2 ) 

FLDINF 

(1) 

= L 

FLDINF 

(2) 

= L 

FLDINF 

(3) 

= 1 

FLDINF 

(4) 

= S 

FLDINF 

(5) 

= S 


rectangular bodering field (dot) 


FLDINF (6) 


1 



XTERTEX (IPT) = S 
VERTEX (TPT+1) = L 
VERTEX (IPT+2) = S 
VERTEX (IPT+3) = L 
IPT ^ IPT+4 
RETURN 
END 

Regarding the extraction of dot numbers NDOTS{I), 1=1, NDCARD, 
a new routine, NUMBR, similar to existing function NUMBER will 
be provided. >The differences will be 

1. NUMBR will recognize blanks instead of commas as delimiters 

2. NUMBR will process only one card of information 

A. 9. 7 Flowchart 
N/A 

A. 9. 8 Listing 
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no’n 

Af«>P 

no/>i 

no?& 

O05S 

OP?A 


nr?7 

O07A 

no^o 
no ^n 
omi 
nmp 
00^3 
nn>6 
no IS 
003 s 
no <7 

ft03P 

0010 

OO^^O 

0041 

004? 


1)043 


0044 

0045 
0044 

0047 


FTFIDS CATEGORY NAMF AND OOT TYPE FOP OOT \ STOPEO IN PPTOOOIO 

FlFtOn»I) ANO FIflO<4*I) PPTOflOZO 

3Ta*^NT - INTT&LLY ^ET TO iVswTTHCEO TO INOICATF DOTS REING ggJ2S2?2 

Ta<FN FP04* CUPPFnTLY PFAD CAPD* PPT00040 

IPT - TNITTALLY SFT to l.TNOEX NNKhtK FOP HELO VERTEX l^f^^^^^TlONPPTOflOQO 


Vt*<TFX - VFf^TFX INF0PW4TI0N FOP FaCH [>0T- 

SlinPOUTIiiF PPTL AC (FIFL0S»STAMNT* ***♦“« IPT*VFRTEXI 
iNTF^pp (A-7) 

PEAL 

r [<<FN«:rOw FTFl ns <4, n »VF,PTFX (D •CAP0<7S) »N00TS <30) 

OT‘*^NSTON ACaPIHOU) 

L^/rlCAl SWITCH 

DATA S^iirrM/^TPUF^/tSWCHG/O/^ENnHCn/'^EN*/* 
fiATA IRLAJVK/I 1/ 

rsrf'OF 

If rL'jo*^ co4»-<i 

C('**>'OWlt»Ff)=«/NOri.^?»Nr)'5O‘^?«NI)FFT?*VfiP57?«TOTVT2jN0Fu0?< 

« iV4‘^7«COV4RF»fLSin?.SUHNO^,SUni)SStFl.nSV2*VERTX?, 

o FFTVf ? ( 30) .SUP VC? ( 7^1 .SDhPTR ( TO) tCL5VC?)60> . 

o KFPh>Tbi<ft(') *WJfiRP»ORPNAM(60) •6HHn6X (61) t 

« 6WPCHn( 6U ,>'.HnuF<?(126) 

rON “Oh /OOTVf <‘/TYRF«CATi'iaw (6n) «nOCaT tTOTVEC.FLOIMF (6) .PRTKEY 
® .A17E .LACIE 

;<F'.r) 

CO^MOM /LU/LUNIT 

IF (ATI !NT.i^o.?)60 TO 10 

IF (.rrT.^*tTrF‘)f=o to ?o 

CALL ff-iF Arn3fl>®nl 

in =(■ Afl (L>r lT.lff>) (flC»»n( I ) •I = lffl01 

101 FO- vaT MOai ) 

«- 1 TF 1 10. Inn (ACA-7iin 1 , t=i.Roi 

. r ^'^0 30 

vfFftino. inno) in. types, faro 
fc-i rF(6,Rqo8) in,F|gf)Hrn 
^OOA Fr,t-.<ftT(l« .?a41 

IFdO.F j.E».OPfO) 60 TO 333 
FFS(’)0 30 

inoo F'.~''aT{41.1Y.I1.7*’ill 

IFITYPF.T I.TyPFS )(iO to 20 
IF (SKrMG.i.F.Q)fiO TO AO 
TYPF = TrPFS 

■ nFAD CAnO 


C>1| = 0 

TATI.'* = NXTCHB (CAPO.COI.) 

IF VFYT r^AR IS NOT A CAT. NAHE. CORRECT COL COUNT TO READ NUM 
IFICATUM.GT.OlfiO TO 21 
IF (farHM.Fo.CATNMllGO TO 23 
NfifATr )OCAT ♦ 1 
CaTNa'* (NOCAT) =CATNM 

CaTHmJ = catn« 

GO TO al 
cm =COL - I 
NOraRO=0 

C«l L NllMNR (MOOTS. (gOCAHO»CA«0*COL) 

IF (^OC4R().FO.O)GO TO 10 
ItnT s 0 
STa'NT = 2 
SklTCH = .TRUE. 

GO TO 100 

TEST for ENO of dots TO Rf. PB0CFS5E0 OM CARD 

IFdCNT-LT.NDCARDlGO TO lAO 

REAO a-FYT capo 

STA>'NT = 1 
ICNT = 0 

RFAOtLUMT.loa) (ACAROd) *I = ltflO) 

w«itf( 30*103) {acarcxd * 1=1 *no> 


PPT00060 
PPT00070 
PPTOnOBO 
ppTonORO 
RPTOniOO 
PPTOOl 10 
ppToniso 
ppToniao 

PPTOOIAO 

PPTOPISO 

POT00160 

PPT00170 

PPTOfllBO 

RPTOPIOO 

PPTOOPOO 

PPT00210 

ppTop??n 
PPTOn?30 
ppTon?40 
PPT0P2S0 
PPT()0?60 
PPTO(i?70 
PPT0(i2n0 
PPTO02RO 
PPTOOlOO 
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PPT 01)320 
PPTOOiaO 
PPT00340 
ppTonasn 
PPT 00160 
PPT00370 
PPT00380 
PPTni139n 
PPT00400 
PPTOOAIO 
PPT0il4?0 
PPTOOASO 
PPT00440 

PPT0H4S1) 

PPT(in460 
PPT0n470 
PPTnOABO 
PPT0A490 
PPTOrtSOO 
PPTOOSIO 
PPTOOSaO 
PPT00530 
PPT 00540 
PPT005SO 
ppTonseo 
PPT00S70 
PPTOftSflO 
PPTOoBOO 
PPT00600 
PPT00610 
PPT00620 
PPT0D630 
PPT00640 
PPT00650 
PPTOfl660 
PPT00670 
PPT0l)6fl0 
PPT00690 
PPT00700 
PPTOD710 
PPT00720 
PPT00730 
PPT00740 
PPT00750 
PPTOS760 




F0PTO4N IV G LFVFL 21 
PILP PPTLAr 


pptlac 


DATE = 79003 16/55/32 


page 0002 


Cx^ 


A04Q 

nn^Q 

nn-1 

0057 

O05R 


on«5Q 

on^ft 


oo*»i 
no<* ? 
00*-’> 
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00.^*' 

on* 7 
no# a 
no* <5 

nc7o 

«o 'J 

ft07? 

00 

on 

0074 
on /7 
00 71 
007 a 
0040 
on*«i 
on-’ 


O0-®3 
00^4 
on .c 
00-#^ 
0047 
00**O 

OOmQ 


no*;n 

oo»>? 

0PO3 


ano4 

ones 

0054 

no<)7 


OO'i'* 


OOO^i 

n|r»o 


0101 

nin? 

0103 
010a 
nn>5 

0104 


«E>»TNO 30 

PEA0(30»1000 nO*TVPES*CARO 
WHlTF<5t99<ia) IDtENDPCD 
PFwINO 30 

IF tID*Fu.eK‘nncD)GO TO 333 
TFCTYPF*t0,TYPE5)G0 TO ?0 
Sv^ITCH = •FALSE, 

^-.rna 5 SiiTHG ♦ I 

IF ISarH^.GT,l>60 TO 40 
TYPF = TYhPS 
IPX = 0 

jiwF 2H 1978 


changed 

PFToRN ^ 

r 

c 


ion 


ir^'T = TCNT ♦ 1 
N0FL02 r M0FLD2 


I 


rCMPuTF LINE INCPEMFNT 

rgN = 5 Dot<;(Tcnt) 

NT ^IA8S( NM / lOOOOOOOO 
LI = IfiBSINN) - MI « lOflOOOOOO 
IFILI.GE.lOOnnnooOINI 2 NI O 

COMPUTE sample INCPEMFNT 

K*^ 2 1 

IF(NN.LT.0)KK=-1 
LI = t.I o KK 

M? = m - LI * inofifloono 

N1 = IAU5( NPI/l'H'O') 

51 = i/>rtS(i''?i-fJ3 » lonno 
IF . 1000)^3 = N3 ♦ 1 

KK^t 

lF(\2.Lr.(UKK=-l 
qi = *rfK 

Lari ^ N? - 51 o 10000 
L-< 

L5 

L5 

. IS_= ,10 ® <Laci - «LS»19)1 
5 = 


15 


an 
?oon 

111 


51 

tl aci-l)/19 

(Li>»I) » 10 
LO - I 
I s /in 
10 ® <Laci - 
LV* -LT 
LS ♦ SI 


STflsF DOT IMFO 

FTFLn5[l,';0FI D2) =CaTNH 
FIFL>1C[«.m^fi n?j = 2 
FiniNFtl) = L 
FLOTMFt/J = L 
FLnif.F(l) = 1 
FL’-INFUl = S 
FL'’I-NF15) = S 
FLIINFfM = 1 
IF(rHT♦^> .0)00 TO 15 
IPT = -1 
IPT = IPT ♦ 4 
VFRTEX(IPT) = S 
Vf«TF)f(IPT»l)=L 
VFPIFX(IPT*?)=S 
VFPTFX tIPT*3)=L 
PFTtIPI I 
WPTTF U.POOO) 

FOP^oTiZ/SX. iFRRnk HAS OCCURREO IN READING 
»0S - SlIH^rntTIKE PPTLAC - FXIT TAKEN* ) 
Clia-TIMi/l 
5wTTr''=,T-)i|F, 

5»rH0 =0 
CATNHUIHLANK 
PPTDRN 1 
Fan 


PPT00770 

PPT00780 

PPT00790 

PPTOOnOO 

PPTOOBIO 

PPTOORPO 

PPTOOB30 

PPT00B40 

PPT00A5O 

PPT00860 

PPT00870 

PPTOORflO 

PPTOOftRO 

PPTnnooo 
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PPT00930 

PPTmq40 
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PPTOOQOO 

PPT0H970 
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PPTn0990 

PPTOIOOO 

PPTOlOlO 
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PPT01050 

PPTOIOOO 

PPT01070 

PPTOIOPO 

PPT01090 

PPTOllOO 

ppToinn 
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PPT01130 
PPT01140 
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PPTOl 160 
PPT01170 
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PPTOl 190 
PPT01200 
PPT01210 
PPT01P20 
PPT01230 
PPT01240 
PPT01P50 
PPT0I260 
PPT01270 
PPTO1280 
PPT01290 
PPT01300 
PPT01310 
PPT01320 
PPTOl 330 
PP701140 
ppTonso 

PPT01360 
PPT01370 
PPT01380 
PPTOl 190 
PPT01400 
PPT01410 

LACIF FORMATTED DOT CAPPPT01420 
PPT01430 
PPT01440 ' 
PPT0I45n 
PPT01460 
PPT0I470 
PPTni480 
PPT01490 



APPENDIX B 



B,1 SOFTWARE SUBPROGRAM NO. 1 (SPPTA) 

Subroutine SPPTA reads the input cards and sets option switches 
for the processor MPTTA. 

B.1.1 Linkages 

SPPTA is called by the program MPPTA and uses data initialized 
in PPTBLK. SPPTA uses the function ALPHA and calls the 
subroutine SETTRM. 

B.1.2 Interfaces 

SPPTA interfaces with MPPTA through a calling sequence and 
interfaces with MPPTA and PPTBLK through common blocks UN, PF, TR 
and FV. 

B.l. 3 Inputs 

Calling sequence: ■ Subr. SPPTA (D, T, ISGZ, NT, E, CATREC, -C, Nl, N2) 


Parameter 

Dimension 

In/Out 

Description 

D 

1 

Out 

No. of channel 

T 

1 

Out 

No. of classes 

ISGZ 

26 

Out 

No. of pixels of acertain 

NT 

1 

Out 

Total no. of samples 
category 

E 

1 

Out 

Error Tolerance 

C 

(10,10) 

Out 

Cost Matrix 

CATREC 

26 

Out 

An array use to indicate 
which categories are being 
used . 

Nl 

1 

Out 

EO . 

A number that determines ' 
certain array sizes 



Parameter 


Dimension 


In/Out~ 


Description 

A number that determines 
certain array sizes. 


N2 


1 


Out 


Common Blocks; 

See PPTBLK for information about the common blocks . 


Input cards (unit NRDRl) : 


Variables 

Format 

Function 

PFLAG 

15 

0- for short printout 

1- for printout 


415 

D- no . channels 


215 

T- no. of classes (at 
present T=2) 

ISYM,ICREC 

(AI,I3) 

Category symbol and 
associated index 
(ICREC=0 indicates an 
end of file for this 
information) . 

((C(I,J) ,J=1,T) , 

10F5.2 

The cost matrix (one row 
per card) 


5. 

IDEP 

A1 

D- use default data vector 
input format 

N- input an input format 

6 . 

(use if IDEF=N) 

15 

Ntimber of data points per 


NDATA 


pixel 

7. 

(use if IDEF=n) 
(IPMT(I), 1=1,20) 

20A4 

Input format 

8. 

IDEF 

A1 . 

D- use default feature 




index vector 




N“ input a feature index 




vector 



Variables 


Format 


Function 


9. (Use if IDEF=N) 3012 The feature index vector. 

(FEATVC(I) , 

B.1.4 Outputs 

Input information is printed out. 

B.1.5 Storage 
Program size = 2900. 

B.1.6 Description 

SPPTA is the input subroutine for all except the pixel data. 

t 

I'f default options are not used this subroutine inputs the 
format for the pixel data and the feature index vector. 

B.1.7 Flowchart 
N/A 

B.1.8 Listing 
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0044 
n04S 

oo **^ 
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oe^*! 


00*^3 

00*74 

noss 
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orsg 

oo<*o 
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00^4 

rtflf 6 


*''si>|i)tit;TI»‘F ■;PPT« t0*T.IS07.NTfE*CATReC«CtPl*N2) 

IMFGpP 0»T»C&T*PUNJT»v(WRlT 
tNTFCFR TFfi'-'S 

Ir,TF«F'> alpha 

CftTPfr(2ft> 

*rr>viiof‘ /un/f)ROR| *WDR?fPPRT»HUNITTWUNIT 
rf)«'*'OP /TUM/NTHP 
CCuH-r-N /TR/TFB-^Sn'il) 

ISTFC-FP HFl Afi 

/PF/PFLAt^ 

If.rF«;P“ FFATvC.TTtRO . „ 

r<1''-'0fi /fVi'FFlTVCOH) •.IFMTl’^Ol .HfVftTA 
c PAi-A^ptFR mni=i<,i ,HN?=/i 5 S??*TT = in*DD =10 
c '■»•! ' ••? m>?Ff» (>^ ChANI'iFLR_ 

C f)TuF^>^IO^S CHErnFfl P'l ThIS SUhROUTIIMF 

OATA •g>.l/if.l/,MN2/A‘.A2?/iTT/iO/«l)D/30/ 

r>&T» 

r>iiii-3i F P-'FrtAtRM C(io«iO> 
ntn'<i.F pwFrl'^Tf)*" E 
r ni-tTFffTPH.iini) 
nni ffj’-atmh ♦•sppT'a*! 

PF»I»(0 si-101 
Pr.lM ijhOPf 
nt, 111 1 = 1. ?ft 
111 CAiPi^rnir^n 

Fn1 112 1=1 .A N1 
11? ( I) =>i 

C «1A(1 1"PUT rvATA. 

RFA<l|f PliPl ,lfl) PFLAB 
lo Fr<'>'-*Ar f 31=1 

■«m1T=(sj-.T.0171 pflar 
HTf f I P»IaT(//,10». *PFLAG=««I=I 

•-HTFC- (fipoT ,?0) hUMT.WlKuIT . , 

?<i F0-> A AT (//•111* > •PU'(IT=' * IStFXi *WUNIT=* • 1*5} 

CFMUsonPl ,?l) D»T • 

?| Flp-PATCAtiil 

PP "*FnP«AT^//1 1 0*«'*NO. OF CHANAIFLS = * f I'll //tl 'NO, OF CLASSF5 
« til • 

IF (0. FT. on) sPTTEisPPT.iai) no 

IF(T.i;T.TT) .PtTF (sPPT.lnPl TT 

101 FO >''AT(//. 1 HX,» FOWOR THE NO 

K»p FO-^PAT(//.10X.' FUROR — THE NO 

IF irt.r.T.OO) STOP 
lF(T.r,T.TT) STOP 
XPI tF« -IPPT.lfiA) 

1 f a FOP" A T ( /// ,I?*.»CATFR0PV*«PX**INDEX«./) 

1=4 rtlSTlNIlF 

PfAniSPii" 1,116) rSYP.ICPFC 
4PTTF(H=«T, 1171 tiTP.ICPFr 
FOPMATCIm .tlX.Al.^nx.JSl 


OF CMANNFL6 FXCEED5 *.75) 
OF CLASSFS FXCEfOS <*H) 


JIT 

Vii 


GO 


111 


^111 

? 6 P 


11 


31 


110 

2 = 


506 


IFIICOFC.FO.O) 

F(lP"&TlAltn> 
tCAT=4t PHA(ISyP) „ 
C4TPFC{If.6T)=tCfigC 
GO TO 11-* 
rONTtA'IJF 

W«rTF(NPRT,?10) CATREC 
FOPAflTdP •?1I?1 
PFAD(NO'IPI.J) E 
1 FOR'-'ATtFIO.T) 

MPITFINPHT.II) F 
F0"'«AT(//4l0*,*E = ».FI6.fl) 

? rOJ^ATtllFI.?) 

WPrTFCJPPT.lD , . 

F<'i>'*-'AT<//,U'X. «THF COST WATRlXO 
iVi 11(1 1 = 1, T 

PFArj<NRi1Pl ,21 tCa.JI •J=l»T) 
VPfrFr‘F"T,?1) (C(I.J) .J=lrT) 
ClIMfNHF 

F(iu"AT(//,10X.lOF5.2) 
PEAO(NR11P1,S01) IDEF 
FOPPATlAl) 

IFflOFF.eO.rv) fiO TO SOT 


SPPOOOlO 

sppQaoso 

SPP00030 

5PPOOOAO 

SPPOOOSO 

SPP00060 

SPPonoTo 

SPP00080 

SPPOOflSO 

sppooloo 

spponiin 

spponipo 

SPP00130 

sppnpiAO 

sppooiso 

SPP0O16O 

SPP00170 

SPOOnlBO 

SPP00190 

sppo(i2on 

SPPOnaio 

SPP0O22Q 

1PP0O230 

SPP002AO 

SPP 01)250 

SOPOOP60 

SPP0n27(1 

6PP002flO 

SPP002R0 

SPP00300 

6PP0 1)310 

SPP0032D 

SPPOn330 

SPP 1)0360 

SPP003SO 

SPP003bO 

SPP00370 

SPPao380 

SPP00390 

1PP00600 

SPP (10610 

5PP00620 

SPP00630 

5PP0n66O 

SPP00650 

SPP0O660 

SPP00670 

SPP0O4B0 

SPP00490 

SPP00500 

SPP00510 

SPP00520 

SPPO0S30 

sopoos4n 

SPP005S0 

SPPOflSfcO 

spponsTO 

SPPQ05RO 

SPP00590 

SPP00600 

SPPOOOlO 

SPP00620 

SPP00630 

SPP00640 

SPP0H650 

SPP00660 

1PP00670 

SPP00680 

SPP00690 

SPP00700 

SPP00710 

SPP00720 

SPP00730 

SPP0P760 

SPPO0750 

SPP00760 


Sf 
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SPPTA DATE = 19003 


fin*.! 

onf.c 

nn*.q 

n07P 

no7i 

I'm? 

n073 

'VOTt 

(in7A 

fin7A 

nn77 

A07F 

fin TO 

finno 
nnni 
nn-? 
nf).il 
nil = 4 
nnee 

nn-*, 

nn^T 

nnsfi 

nn..n 

nont 

(\no? 

fwn3 

(Wlf.6 

nn.JS 

nnoA 

T(1C7 

nnon 

ncioo 

0100 

nlftl 

Din? 


r PFi>f> IN NO. OF DATA POINTS PER PIXEL 
PFfiO I'lRORJ.?!) NOaTA 
444 FnPPnT(//,lnx.*i'!t)ATA=t,ls) 

C OFAO IN THF FOkMAT FOR THF FF4TURF VECTOR 
PFA0<NR0H1.4Sn) ( IFPTni .1=1.20) 

4S1 FORVAT (?0A4) 

S07 rOMIM'IF 

kRITE('fP«I.44A) NOaTA 
*OfTF<NPRT.459) 
vritF INP kT.ASl I TFKT 

4<50 F0o«AT(//.]nK, iFFaTURF VECTOR FORMAT ») 

4Sl FOPMAT (//.ll)*.?nA4) 

PE^^(*oo•»l .=-i)<i) lilFF 
1FllOFF.eo.iY) so TO SnQ . 
r opAD tn THF ffatdff imtfx vector 

PFAO (AOflRl ,4S?) (FFATVCd) .1 = 1.0) 

4i;p FORMAT (l.'ll F) 

Snq fOHTIH'lF 

wcitf ffiRRT.AS-J) (FFATVrt 1) .1 = 1.0) 

4 R 1 F')«mat (//, jn*. .THF FfATUPf INOFX VECTOR • . //. lOX . 30 13) 

,Mi inn T=i.o 

IF ^FF^TVCt^> .LF.O) ViOlTFtNPRT.Bni) 

IF (FFf TVC(I) .LF.O) STOP 
ion ro""Tl»IIF 

ml FOI VAT <//. in<. .FOPOR — FFATURF vector FORMAT - OR 
•* FFATMRE 1*0FX VICTOR IS yROKR*) 

M=n.l*(0O(n*i))/? 

MP=N)*(*lI<.rNI.}))/? 
rfklTF (*|PMT.33) M.N? 

33 FOPVAT(//.lftA.»).l = ».1S.SX.’M?=‘.IS) 

IFlM.ST.Hfil) VDITF (NPRT. 103) NMl 
lFn?.or.*lf!?) vDitF (NPRT, 104) NM2 
1F(N?.GT.NN?) N?= NNP 
IF (M1.0T.'.*m .^TOP 
!FIN?.f!T.'*J?l STOP 
CALL SFTTRM(D) 

103 FROvat (//. I OK. . FPROR — N1 FXCFF05 ..1)0) 

0104 FORMAT!//, 10V.1 gRROR — N2 EXCEEDS *,110) 

104 format (//,! ox. * N? REPLACFO BY ‘.IlO) 
oftuRh 

FNO 


5 
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B.2 SOFTWARE COMPONENT NO. 2 (PPTA) 

Subroutine PPTA is the main computational subroutine of the 
processor MPTTA. Input from SPPTA is passed to PPTA. PPTA 
with the aid of other subroutines calculates the loss vector 
matrix and writes it out to unit WUNIT. 

B.2.1 Linkages 

Subroutine PPTA is called by MPPTA and is passed information 
from SPPTA. PPTA calls subroutines READIT, PHI, COL IN V, -and NP . 

B.2. 2 Interfaces 

PPTA interfaces with other routines through a calling sequence 
and common blocks UN and PF. 

B. 2 . 3 Inputs 
Calling sequence; 

Subr. PPTA (D, T, ISGZ, NT, Nl, N2 , PNI, P, Q, *R, S, A, E, CATREC, 

C, X) 


Parameter 

Dimension 

In/Out 

Description 

D 

1 

In 

No. of channels 

T 

1 

In 

No. of classes 

ISGZ 

26 

In 

No. of pixels of a certain 
category 

NT 

1 

In 

Total no, of samples 

N1 

1 

In 

Dimension for some arrays 

N2 

1 

In 

Dimension for some arrays 

PNI 

N2 

In 

PN inverse 

P 

N1 

In 

Phi function vector 

Q 

(N1,T) 

In 

Class phi sum matrix 

R 

N1 

In 

PNI*P 

S 

(N1,T) 

In 

Working storage 



Parameter 

Dimension 

In/Out 

Description 

A 

(N1,T) 

Out 

The loss vector matrix 

E 

1 

In 

Error' Tolerance 

CATREC 

26 

In 

Records categories used 

C 

(10,10) 

In 

Cost matrix 

X 

D 

In 

The feature vector 

Common Blocks ; 

See PPTBLK for 

information 

about the 

common blocks. 


B.2.4 Outputs 

The loss vector -matrix is printed out and written to unit 
WUNIT. Optional information is printed out if PFLAG = 1. 

B. 2 . 5 Storage 

Program size = 5808 bytes 

B.2.6 Description 

PPTA uses the input of SPPTA and READIT as principle input to 
compute the loss vector matrix and writes it to unit WUNIT. 
The method for computing the inverse of matrices in this 
routine will be changed. 

B.2.7 Flowchart 
N/A 

B.2.8 Listing 



FOPTPAN IV (? I FVFL 21 


PPTA 


DATE a 79001 


15/57/19 


PAGF 0001 


Flip PPTA 



noo( 

c ahaptfo «y c w ahlers 

r THF PaTTFxSOV-PITT-THADANT ALROPITHM. 

r TmF FUiiit loss VFCTOP HAT9IX A TS OUTPUT TO IlMT WUNtT. 

r TPjifinr,, 

r PCil) ....PHI FIPCTIOM VFrTOR. 

C 01‘Jl.T) ....CLASS Phi SUM MATRIX, 
r A{'iM..,.voT lisFo 

{• PMJ (H>) ...,PU INVFBSF MATPI*. 

r rATPTf <2»-i ....A pFcoHu OF cATFtiopy syprolr 
r isfi/r?A)....A rni-MT vector fop catfookifs 

M>V.» n'TIr-F PPTA intT.lSfi/tNTtUl »N?«PMI tP«0>UtS«A<ET 

PPTOOOlO 
PPTOOO?0 
PPT00030 
' PPT0004D 
PPT00050 
PPT00060 
PPT00070 
ppTooono 
PPT00090 
ppTnoloo 

PPTOOI 1 0 


nnni> 

o CATpFC.C.*) > 

T(,TFt-FP O.T.CAT.OUUIT.WlJNIT 

PPT0O12O 

PPT0(U30 


nno » 

I'.IFC'FO CATPFCIPfO 

PPT00140 


nnr»* 

pNrc'rr-P M PM* 

PPT00150 


AnrA 

SAU0| p,rtxr4T,AICAT 

PPT00160 


AAr-, ^ 

(0P'« ,g ,mPdR2»NPST<RUmTT»WUNIT 

PPT00170 


A0A7 

r'>MMiiii /( t/lfttfr(?6) 

PPTOniBQ 


op *» < 

Ti TP r*/ 

PPT00190 


orin 1 

^•^TF(FP TfRPS 

PPTOngOO 



j iTF^eo ryPP 

PP700210 


Aon 

/riiN/MTWM 

PPT00220 


flop 

rCMXv, /TP«/TFR«S(3611 

PPT0n230 


noi ■» 

r>T TKfAOfprU 

PPT0n?40 


OOU 

ri''FU'-tO>i I9r,7(?5) 

PPT002S0 


OOP 

/hf/pflar 

PPT00260 


001 A 

rit|iiH|.F pPECISIOU ,P{MI ) .OtNltTl *R (Ml) *S(N1 »T» 

PPT0O27O 


AOl 1 

iiAtlRlF pPEflSION' A{N1 ,T) *ALPHA1 ,TRACf 

PPT00260 


OOP 


PPT00290 


OOP 

no-iuLF Pt-EcisioN cn*).io»«x( 0 ) 

PPT00300 


on?n 

noiiHlF PPFCrSION E«DET 

PPT00310 


Afi?l 

D4TA IPL»^</» ♦/ 

PPT0O320 


no?? 

f (iTA iKK/t 1/ 

PPT00330 


A0?‘< 

C •. »TTFI'iTP''.ftfiP) 

Hf\H F^lP'MTdH .'PPTA>) 

PPT0O340 

PPT00350 


onpA 

r »F1TP t IPPT.ORP) O.T.MT.RIJMIT.WUNIT.NltNZ.E.r 

oq<j FnoviT(//.?X,7tS.Fln.7,lP C/.inF5.2) ) 

PPT00360 

PPT0O370 



C 19ITI1LI7F P^>[.P.O.R^A 
,ir, T 1 = 1 , N? 

PPTOI>3flO 

PPTOO390 


00?/ 

P*^ I (^/?) =0.0OO 

PPTnoAOO 


on?/ 

1 rOMTILUF 

PPT00410 


no?** 

r>.i A 1 = 1 , Ml 

PPT00420 


nn?<a 

on 4 j=i,T 

PPT00430 

'I 

0010 

otl,ui =o.nnn 

PPT00440 


&U *41) tiApOl>0 

PPT004S0 


0013 

s(i,ji=n.ono 

PPT00460 


003"^ 

4 roMTlMUF 

PPTn0470 


OO'l* 

f'C, 1»1,?5 

PPT00480 


0 01- 

ISR7(l)=0 

PPT00490 


OOIA 

Th9 COMTIMUF 

PPT00500 


ofn? 

C ^(PITFU- PPT,f.59> CATPFC 

FOPMATUH .<CATPEC*t?An) 

PPTOOSIO 

PPTOOSPO 


OOlfl 

nxx=T 

PPT00S3O 


oni? 

•C T = 0 

MsO 

PPTDOS40 

PPT0O550 


0040 

C COmPUIF no, of PHI FUNCTIONS, 
no 15S lal.Nl 

PPTQ0S60 

PPT00570 


0041 

T«-P IF(TFRMS<n.FCJ.l) MaM,i 

PPT005B0 

PPTQOSPQ 

PPT00600 


004? 

*■ 00 5 l=l*Nl 


0041 

P( II =0.000 

PPT0061 0 


nn4A 

P(U =0.000 

PPT0O520 


n04c; 

s continue 

PPT00630 


nn&*i 

runu=o 

PPT00640 


0047 

iuMr,T=o 

PPT00650 


0044 

IFIPFl AG.RF.U WWITE(NORT^937l 

PPT00650 


Mil, <5 

937 FORMAT!//, 10X,*THE INPUT DATA*,//! 

PPTCJ0670 


00*^0 

HOUNT=n 

PPT00680 


nocj 

70? rONTFWlJF 

PPTOOfiQO 


no*-*? 

no 464 I = 1,2 

PPT00700 


OOS1 

pFAD(NR0R?,452) IHEAO 

PPT00710 


nOA4 

IF (IHFAOI n ,F0,1PLNM go to lO 

PPT00720 


A<15S 

46? FOOMAT (20A41 

PPT00730 


nns4 

PPITF(NPPT,463) IhEAn 

PPT00740 


00S7 

463 FORMAT!//, 10X*2nA4> 

PPTOOTSO 


An5“ 

464 CONTINUF. 

PPT00760 




•• 1 r 1 

✓1 HPTA DATF = 70001 

16/S7/1S 

fUF PPT4 


11 

COMTfNtJF 

PPT0O770 


r 

V.MTFl»lTHK.l(iOOn KOim 

PPT0O780 

n^^a 

loool 

F0OM0T(lX.*K0tJNT>.F.;if tin) 

PPT00790 


r 


PPTdOflOO 


9Dp 

F0R-«4TUH ,>n = •■. I*?) 

PPT00810 

ftD* ? 


C4| L PF40ITILrNP,5.AMPLF.GTCATtAICAT»TYPFfX,D»TCMNT.IAIVEG) 

PPTOnfl20 



TFtLI JP.FO.O) GO TO 707 

PPT00830 

nr)“« 


l<fllJNT=<OUNT*l 

PPT0O84O 


r 

W«ITE IVTPN.7P0) 

PPT008S0 


7^0 

Ft'O^ATUH ,»niJT OF PFAOITM 

PPT0O860 


r 

wPITF(»lTP‘'.PPfl) l> 

PPT0O870 



IFlPFLlG.GP.U vfHlTF (NPRT.P??) IXtI)*l=l*0) 

PPTOOflon 

onftT 

fl^? 

F<-.P'-tAr t iH ,?x,ixn2x.)GFA.n 

PPTOOfloO 

nn^R 

IFIPFLAG.GF.1I WPtTF<NPPT.pni 1 LTNe, SAMPLE. GTCAT.AICATfTYPF 

. rCWNT.PPTnOSOO 


« (IA1VP'^(TJ <l=I«4) 

PPT00910 

nfi*-9 

KOI 

FT.^ATOH .SX.2I4.1X«41.1XiA1.I2.1X.A4,]X.4in 

PPTon920 

nn?n 


lrAT = 4LPHA<r,rrAT) 

PPT00930 



IF (GTrAr.Fi-i.rPK) II)Mr,T = IUMGT*l 

PPT0n94O 

aft7> 


TMGTCM.pn.lPK) GO TO 11 

PPT0O9SO 

r>n?7 


IFtlSF7(IC4T) .F'J.O) P)MI)= ll)A‘U+ 1 

PPT00960 


r 

IF (T,f-T. IT*<) «P1T£ (MDPT.41 J ) GTCAT 

PPTa0970 


r 

IF (T.C-T.nxx) WA1TE(MP«T. 10001) KOIJIMT 

PPTO'1980 


r 

IMT.GT.ITXX) STOP 

PPT00990 



IS-.7(TriT) = T‘!r.7{TCoT> ♦! 

ppTniooo 

np7S 


CAT=C4TofC<IC4T> 

ppTnioio 


r 

JF(rAT.F-j.il) VPTTF (NPftT.Gl 1 1 GTC4T _ 

PPT01020 


c 

}F (C4T.F./.0J -PUf tOPPT.Gll) TCAT.T.ISGZ.CATWFC 

PPTD1030 

nr>7s 

S71 

FiPPiT(l« , *TCAT=»,IA,. T=» .IS.//.7M7.//.2M?) 

PPTr)1040 

rjr-77 

si 1 

FGu-«Ari//.lOX,.rATf()OPY ..Al." WAG MOT ALLOwFt) FOR*) 

PPTOIOSO 

nn 7R 


TF IC4T.FP.0) PO Ti> 1 1 

PPTOlOftO 


C '‘OwPlJTf PHT Flt^rnofl VFCTOP. 

PP7IU070 


12 

CD L P«7 lX.F.n.NI) 

PPTnIOfiO 

nn-n 

IF (PFLaG.Gf,?) WPITF(NPHT.P02) tP(l).I=l.MI 

PPTD1090 

nr»a 1 

*02 

Ffi-VAT t/1 X. .PHI VFCTOH*./. (IX <3020. in) ) 

PPTOUOO 


c UPntTt F'll SlW FATWU 0. 

PPTOlllO 

pn*‘? 


0'> 13 r = l." 

PPT01120 



A ( I , FA T ) =A < I ,r AT ) ♦ p ( n 

PPTfll 130 

On-4 

13 

rnvTiNiiF 

PPTOlUn 


“■=(1 

ppTniiso 

on'.fc 


n<, lA t=l." 

PPTOl 100 

Op’* 7 


'>0 14 J=1 .1 

PP701170 

AA'«C^ 


■f=7.1 

PPTOI 180 



PM(K)rP(J)«Pt J) . PNT(K) 

PPTfll 190 

AA«>0 

14 

n'.iT IMIF 

PPT«V200 

Aft 

lX=(KO.*I'(T/G>4S 

PPTfll 210 

0(1 4? 


IF<.<ni)‘iT .FO. IK.Atvn.PFLAG.GF.l) WRI TF (MPPI , 1 0001 1 KOlINT 

PPT0122O 

no'' ^ 


-r. TO n 

PPT(U?3Q 

Oftf <» 

in 

rr-'TiM'iF 

PPT01240 

OA 

woiTFt'jPPT.l! 1) KODMT 

PPTD12S0 

nn^A 

in 

FOk".aT(//.10X..THF no. of GaKPIES = *.1R) 

PPTfll 200 


C 

rnwPiJTF PN tNVlPGF 

PPT01270 

nn^i? 


CALL rtJLlNVfP.NT.M.lFPR.l.OFT) 

PPTfll 280 

nn-»A 


tF(IFCP.-,F.O) WRITF(M“PT.«P7) 

PPTfll290 

nnoq 

«n7 

Fnw«AT(///.10x,iPN IS NOT POSITIVE OEFlNlTei) 

PPTfllStlO 

o\(y(s 


Tf llFoo.dF.n) STOP 

PPTOniO 

0\(i] 


Of. SO r = i,T 

PPT()1320 

OK? 


on SO J=1,T 

PPT01330 

mm 


pa 70 i^ = i.w 

PPT01140 

0| 04 


StK.DrSI-l,!) ♦ C(I.J)*A(K.J> 

PPT013SO 

01 OS 

70 

FONT IMIF 

PPT0136O 

nj 

AO 

coMTiMie 

PPT01370 

01 07 

^0 

FONT IMIF 

PPTl)13flO 

m o«* 

?3fi 

f/O ?1 T = 1 .T 

PPTfll 390 

oim 


no ?4 ;=i,w 

PPTOUOO 

0 } 1 n 


00 ?s l<3l.M 

PPT01410 

01 1 1 


IF='jLOu( I.K.M) 

PPT01A20 

OIK 


TF(K.GT..«) TF^NLOw (K.>).M) 

PPT01430 

om 


0( ).T)3n(.).mPNMIE)»AtK.[) 

PPT01440 

oi K 

?■; 

FO' TIM IF 

PPT01450 

o| K 

?4 

ro'iTtniF 

PPT0U60 

op A 

?3 

FO'tT tMlF 

PPT01470 

0I|7 

101 

rOMTISHF 

PPT01480 


r 

WH1TF(NPHT.?41) 

PPT01490 

OIK 

24 1 

FoPm*T(///,10X.< the n MATRIX.. //> 

PPTfllSOO 


f 

nn 240 1 = 1 , M 

PPTfllSlO 


r 

w>mF<NP«T,23A) tO(l..l),J=l,T) 

PPT01S2O 


PAGF 0002 




pnproA'x IV r, l^vfl 21 


RATE s 79003 


r?*0 COhTINUF 
r ro«Pinf A. 

n.T ?p 1=1, T 
DO ?q K=1,M 

A<i',i)=o.ono 
RD 30 J=l,1 

A<K.i)=A(t(,n*cn«Ji*o(K,j> 

10 ro^TiMit 
?9 rODTI^-UF 
?p rf'MTT'uUE 

TA •rF=n.oor 
DD «n K=l.T 

DO on 1=1, K 

Ti-'«CF=TOACF ♦ AII,KJ*S(I,K) 
on ro jflf DC 
AO rn IT Jr tlF 

T..'rE=(T««rF/Kou'n) 

r moitf m.o.t, i.oos veftod aatbtx a to kuntt. 
c F'DFILF vijdtt 
PF. tMO ,i)'JTT 

,PTTF (r.PATtOl n) 

*10 HW‘'AT(//,l'5it, •CATFOOnv OCrUPAMCES*) 

r.D *U 

iFirATOFrcn.Fo.oi f,o to ah 
WAITF<*>oot,* 1?) LFTTFUtn,ISr.7(Il 
41? FnoWATdH ,1=.»,A1,16X4IS) ■ ■ 

*11 COOTTOII-' 

WAITFI PAT. *11) HW(iT 

*11 FO*liT«//.in»,IS,* OIAEI S WITHOUT OHOUNO TPUTH* I 
wAITFI IPPT.41*) lul.u 

*1* F0-"'AT(/,in<,I«^,* UVHSFO OPOUNO TRUTH STHROl S* ) 

WP1TFIWU'(IT.31) P,n,T 

11 F{'C.«X(3I1) 

*1-1 Th (WJ' IT, 11 1 1 (FATOFril ) . 1 = 1 ,?fi) 

WAl TF( vMIDIT.ai 1 ) <TFF-’^ (1) ,T = I ,Ht) 

WAfTF(«,|,tT.l?l ncn. J1 ,J=1.TI ,I = 1,T) 

TF (PFLAd.GF.I > l«t-!TF(NPBT»113) 

111 F(-A*'iT(//.I0X, ,Thf- TFOm KFV FOB THE PHl FUNCTIOW,) 

IP (OFI aG.Gp.I I WRITE <MPf(T.3) ?) (TFRMl ( 1 1 , 1 = 1 ,N1 ) 

11? fO*“4T(lH ,10)1,5011) 

HI Fnov,AT(KOTl) 

WPITEl-iJNlT.l?) ((All, )),J = 1,T),I = I,HI 
IF(PFL4R,6F.ll WRITE (W°RT. PIT) 

?17 FO°''AT(//.)OX, •Htw P9 IHVFRSE',//) 

f HI/lV=NO_|.) 

NJ,iV=“ot)-*l ) /? 

IF IFF) M..r-F.l) wPlTt«WP«T,?3B) (PNI (I) ,I = 1,NINV) 
FnAwiTin .5x,iP?o.in) 
vniTFlDPMT.CRF) 

FOA"*4T(/P,IOX,»T«F loss VFFTOH RATRIX*,/) 

uCTrF(>|ART.ll?) ( («(I,J) ,J=1,T),I=1 ,H) 

1? Fow'A r (?D?o.i 0) 

13? F'lAivTiiM .popn.ui) 

Fri'FUF ..UDir 
r TP4iMi'‘C ovt t, 

c n assifIcation program will rfao loss vector matrix a 
r FRO" UMlT WUDIT. 

w«ITF(WPRr.31l wUMT 

13 FORMAT (/iJf.fTPAlHING OVER*,/, 

t m,*L0SS VFFTOk matrix resides OM UNIT ‘tie/l 

. WPITF(MPRT.IA) D.n.T 

14 FOPlAT(/lX,*P,n,T«,lIA/) 

‘ wRITFIMPRT,nn)"TRACF 

lift foow4T(/ix.»uppep Rounn on paves risk* ,ax,o?o.io/) 
RFTURN 
ENO 


10/57/19 
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B.3 SOFTWARE PROGRAM NO. 3 (READIT) 

Subroutine READIT reads in a vector of data about a pixel, using 
the input format IFMT, and stores it in the feature vector 
using the feature index vector. 

B.3.1 Linkages 

READIT is called by PPTA and PPTC. 

B.3.2 Interfaces 

READIT interfaces with PPTA and PPTC through a calling sequence 
and PPTBLK through the common blocks UN, PF, and FV. READIT 
reads data from unit NRDR2 . 

B.3. 3 Inputs 
Calling sequence: 


Subr. READIT 

(LINE, SAMPLE, 

GTCAT, 

AICAT, X, ND, ICMT, lAIVEG) 

Parameter 

Dimension 

In/Out 

Description 

LINE 

1 

Out 

Line number 

SAMPLE 

« 

1 

Out 

Sample number 

GTCAT 

1 

Out 

Ground Truth 

AICAT 

1 

Out 

Category Label 
A. I. Category Label 

Type 

1 

Out 

Type 

X 

ND 

Out 

The feature vector. 

ND 

1 

In 

The number of channels. 

ICMT 

1 

Out 

‘ AI Comment 

lAIVEG 

4 

Out ' 

Vegetation indicators 


Common Blocks: 

COMMON/FV/FEATVC ( 30 , IFMT (20); NDATA 




Parameter 

Dimension 

In/Out 

Description 

FEATVC 

30 

In 

The feature index vector 

IFMT 

2 

In 

The data input format 

NDATA 

1 

In 

Number of data points per 
pixel 


See PPTBLK for information on the other common blocks. 

Input cards (unit NRDR2) ; 

Variables Format 

(XX (I) ,1=1, ND) IFMT 

B. 3.4 Outputs 
If PFLAG = 1 then the vector XX is printed out. 

B. 3 . 5 Storage 
Program size = 1264. 

B.3.6 Description 

READIT reads in a vector data (length NDATA) about a pixel 
using the input format IFMT and stores it in- the feature vector 
using the feature index vector as a set of pointers. 

B.3.7 Flowchart 
N/A 

Listing 


Function 

Input data for a pixel. 


B.3.8 



RE«DTT 


O^TE = 79003 


16/*i7/47 


PACE 0001 


FOPTOftN IV e t-FVFL 
pTLF oFaOIT 


21 


nont 

non? 

nodI 

onpfc 

n<ip« 

noo* 

0d07 

nn-iq 

nno5 

0011 

nni ? 

03 M 

nni4 

OOIF 

noi* 

0037 

ooi A 

0030 

tin,>o 

OO?! 

no?? 

00?7 

no?4 


r MlAPTfn PY C w »Hl FH<: 

«;UPPOUTlf<F RF»OITaiNF,>;AMPLF,GTCAT.4lCAT.TYPF*>;*WR»ICt^NT»IftIver>3 
C Tnt*i S‘»3P0tlT10F PFAtlS OATA FOP SUPER PAT-P IT-THAU. 

DOiiolE P^FriSTOU xlNfM.XXnni 
COUPON /TllH/IVTr<M S 

r>l'<Ft\jSION TSlVtOIA) 

I^TFf^FP PUMIT.WUMIT 

lurfGPp sample. gtcaT»aicat 

f 0‘'M0N /tJM/UROPl .NRnPP.NPPT.BDNIT.WUMIT 

I^TFSFP “FI AG 

COMMON /PF/PFLAS 

I.tfrFo TVPF 

loTFRFP FFATVCnni 

ro*''MfUv /FV/FFATVC. IFMTOOJ .NDATA 

t ..pTTFtf ri<i..CPQ) 

<>09 FPPHoTdH ,tPFAliIT«) 

PFAOlFPSPP.IFPn LrOE.SAMPLF.GTCAT.AirAT.TYPF.dMVEGtl) 

• TCP'IT. (XYII) . J = l.NriATA3 
TF(OFl SS.F0,1> w»ITFtNPHT.3l 
1 FO'J^ATIIH ) 

IF tPFLAG.tO. 1) wPITF 1VPRT.2) 

? FPJi^ATllH ,px.*X( ».1SF6.1)' 

r w-ITF<'ir«',7r7) wn 

777 FfiPMortiP .*n = i.isi 

IF (MD.LT.1.0B.f<n.GT.30) STOP 

no 1 1 = 1 . .>r> 

1 xn>=xx(FFaTVF(in 

r WPITF<UT‘'P.9‘>0) 

WFTURM 

'fan 


(xxm .1=1 .NDATA) 


PEAOOOIO 
REA00020 
PFA00030 
REAOOOAO 
PEA00050 
HEA00060 
PEA00070 
PFA00080 
REA00090 
PFAOOlOO 
BEAOftllO 
PFAOnlPO 
PFA00130 
REA00140 
RFAOOlSO 
PFA00160 
BFA00170 
REAOOieO 
REA00190 
RFA002flO 
PFAOOZlO 
PEAOOPJO 
PF Aonpon 
PFAOOEAO 
RFA002S0 
PFAOOPfiO 
RFAOOP70 
RFA00280 
REA00290 
REA00300 




I 



B.4 SOFTWARE COMPONENT NO. 4 (PHI) I 

Subroutine PHI computes the quadratic function vector. 


B.4.1 Linkages 

PHI is called by subroutines PPTA and PPTC. 

B.4. 2 Interfaces 

PHI interfaces with other routines through a calling sequence. 

B.4 . 3 Inputs 
Calling sequence 
Subr. PHI (X,P,D,NP) 


Parameter 

X 

P 

D 

NP 


Dimension 

D 

NP 

1 

1 


In/Out 

In 

Out 

In 

In 


Description 

The feature vector. 

The phi function vector. 

Number of channels. 

Number of terras in the 
phi vector (Nl) . 


Common blocks; 
COMMON/TRM/TERMS (300 ) 


Parameter 

terms 


Dimension 

300 


In/Out Description 

In Indicates terms of the 

Phi function to be used. 



B.4. 4 Outputs 
N/A 


B . 4 , 5 Storage 

Program size = 904 bytes 


B.4.6 Description 

PHI computes the quadratic function vector. This vector consists 
of squared terms, cross product terms, first order terms, and 
one . 



FnoTC 4 >j IV r, LFVFt 


2} 


PHI 


DATE =! 79003 


16/S7/5B 
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FILP P«I 


nnoi 



<;UP«OUT!MF PHI t**P»D»NPI 

PHlOOOlO 


r 


T'^IS oolJTINF COHPHTF'! THF TEpwq Op THE OtlADRIC XT«A*X ♦ BT»X 

• C.PHI00020 


r 


n.J (XI»«?, XI»XJ* XI. I). 

PHI0003Q 

nno? 



OniiULF PHErl<iION PtNP) 

PHI00040 

noAi 



rni^«o\ /TOfiyNUTM 

PHlonOGO 

nnA4 



TNTFRFO n.TFPwS 

PHI00060 

noA«; 



on I'^LF PRECISION X(0) 

PHI00070 




ro^woN yTPv/TPu^S136l) 

PHIOOORO 


r 


»PI IF CJWTM.OPOI 

PHI00090 

noA7 

90-<; 

FCi->''AT ( IH .»PhI«l 

PHiomoo 

noAfl 



lMiFX = n 

PHI 00 no 

<\OAQ 



L=o» null /? 

PHI0nl20 

nnio 



Of) in I j=i .L 

PHI00130 

nnn 



IF(TFP'iS(TJ) .NF.l) GO TO 10 

PHIOOUO 

rrrj? 



CALL NTHHtO.lJ.I.J) 

PHIQI1150 

0^' 1 



lNriFX = T-Mi)Ex. 1 

PHIOnlGO 

nnK 



Pn'TFOrXtDAXtJ) 

PH I no 170 

ar\fi 


in 

roMlnijF 

PHIOOlflO 

API 4 



00 ?fi I 1=1 ,0 

PH10.019I) 

npi 7 



II = IJ*l 

PHI 00200 

nni a 



IF(TfP>S(lI).f»F.l) GO TO 20 

PHI0O21O 

nnu< 



II'OFx=riOF<»l 

PHI00220 

ATj^O 



PaNoFXlaXlIvll , 

PHIOOPIO 

pp>l 


?n 

rONTTNIie 

PHI00240 

nopp 



1 L=i.»n.i 

PHIOOP50 

OflPl 



IF{rFPMS«.L) .E0.1 ) tN0EX=IN0EX+l 

PHIOOPfiO 

nopA 



IFnF«HS<LL! .FO.ll PUNOEX1=1.0DO 

PHIOOP70 




RF TURN 

PHinoEeo 




FNO 

PH I 00290 



-\ 


•>^5 




B.5 SOFTWARE SUBPROGRAM 5 NO. (NP) 

Function NP determines the pointer UP to an upper triangular 
array. 

B.5.1 Linkages 

The function NP is called by the subroutine PPTA. 

B.5. 2 Interfaces 

NP interfaces with PPTA through a calling sequence and as a 
function subprogram. 

B.5. 3 Inputs 
Calling sequence 
Function. NP(I,J,M) 


Parameter 

I 

J 

M 


Dimension In/Out 
1 In 

I In 

1 In 


Description 

First rectangular 
coordinate 

Second rectangular 
coordinate 

The size of the PN matrix 
is M by M. 


B.5 .4 Outputs 
N/A 


B . 5 . 5 Storage 
Program size = 514 bytes 



B.5.6 Description 

Function NP deterinxnes the pointer NP (the function value) to an 
upper triangular array using the rectangular coordinates I and 

J. 

B.5.7 Flowchart 
N/A 

Listings 


B.5.8 



F 0 PTP 4 H IV i, LFVFL 2 J 
FILF NP 



non) 


nnn« 

n'ln'; 

niuiT 
pfiia 
nnno 
noi 0 
non 

flOl?. 


FUNCTION NP(I.J.M) 

C TMI*; SliPPPnOPAP OFTFPmINFS TnF POINTFP np 
r TO AN upppa TPlANGOLArt APPAY USING RFCT ANGULAH 
C roOROIMAIFS I,,l. 

C f.P(I.j) IS CALLFO SY THf PIT-PAT-THAOANI PPOfaPAM. 

J\J~ J 

IFm ,GT. JJ) GO TO 1 

3 NP=(M«rn-i)i - <((n-u»ni-2H/?) ♦ (jj-ii*ii 

Go TO ? 

1 F = It 
II=JJ 
Jj=K 
GO TO ■» 

? PFTi;P‘ 

FM> 






B.6 SOFTWARE COMPONENT NO. 6 (PPTBLK) 

PPTBLK is a block data subprogram. It is used to initialize 
several variables. 

B.6.1 Linkages 
N/A 

B.6. 2 Interfaces 

PPTBLK interfaces with the subprograms in this system through 
the common blocks, FV, UN, LT and TUN. 

B.6. 3 Inputs 
N/A ’ 

B. 6 . 4 Outputs 
N/A 

B.6. 5 Storage 
Storage = 80 bytes. 

B.6. 6 Description 

PPTBLK is a block data subprogram which initializes the common 
blocks PV, UN, LT and TUN. 

Common blocks: 

COMMON/FV/FEATVC ( 30 ) , IFMT (20), NDATA 


Parameter 

Dimension 

Description 

FEATVC 

30 

The feature index vector. 

IFMT 

20 

The input format for the input 
data (see READIT) 



yf t 



n 



PnPTOAf IV G tFVFL ?l 
FILF POTOLK 


PtK DATA 


OATF = 79003 
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mocK oAiA ppTonoio 

I'lTFGF-J FFATVC PPT00020 

IMFGFP JONIT.WIJVIT PPT00030 

/FV/FFATVC nn> ilFFUlO) tNDATA PPTOnOAO 

rOP,M/)M /LT/LFTTFh|?A) PPTOOOGO 

pATA ) FTIFOi'»a». M> , PPTnOOGO 

* PPTOOOTn 

PATA NnAtA/PG/ PPTOnOPO 

n/TA FFATvr/l,?,3,A,‘S,*,.7.«.9.10.n«l?»13*lAtlS*lG*17ilfl.l9f PPTOnoOO 

« PPTOOlOO 

DATA TFPT/i|?f?*.*.?A]*,i,I1.».'An •,',A4.i,*4(/,*,i BF9* , • .41) •PPTOO 1 1 0 

• ,)7«» •/ PPT00120 

rOrfMOfl /l)fj/NPnP1 .MPnwP.NPPT.BIlNIT.WUNIT PPT00130 

PtTA tO0Pl/e/,nppP?/l‘i/.MPPT/6/ PPT0nl40 

cr.pvo*! /GT=K/NP1 tNPl.NP?. IV(4) *W1 l*Nl?»LACPP.NWBFtNOFP PPT00150 

OATA LACpp/??/ PPT00160 

rri'MOK /CK/icK.JCK PPToni70 

OATA IrK/(l/,JCK/0/ PPTOniflO 

COUPON /UI/LACGT PPT00190 

PATA LArr,T/?3/ PPT00200 

DATA PtHIT/3/.wnPlT/7/ PPT00210 

COMBON /TIJM/HTPH PPT00720 

OATA PPT00230 

rtiMMON /PPPTM/ITIJ PPT00P40 

OATA ITU/1?/ PPTOO2S0 

E^f' PPT00260 




Parameter 


Dimension Description 

NDATA 1 The number of data points per pixel 

The common block UN stores some of the various unit numbers as 
follows ; 

NRDL - Card reader for the setup eards or the terminal. 

NRDR2 - Card reader for the pixel data. 

NPRT - Line printer (or output) unit number. 

RUNIT - Utilxty data set unit number. 

WUNIT - Utility data set unxt number. (The loss vector is 
written to this unit) 

C0MM0N=LT/LETTER (26) 

Parameter Dimension Description 

LETTER 26 The letters of the alphabet. 

The common block TUN stores only the terminal output unit number 

B . 6 . 7 Flowchart 
N/A 

B.6.8 Lxstings 


/oC 



B.7 SOFTWARE SUBPROGRAM NO. 7 (SETTRM) 

Subroutine SETTRM records the terms of the Phi function to be 
used. 


B.7.1 Linkages 

SETTRM is called by SPPTA and calls the LARSYS functions 
NXTCHR, FIND12, and NUMBER. 

B.7. 2 Interfaces 

SETTRM interfaces with SPPTA through the callings sequence and 
common blocks TRM and UN. 


B. 7 . 3 Inputs 

Calling sequence: Subr. SETTRM (D) 


Parameter 

D 


Dimension 

1 


In/Out Description 

In No. of channels 


Input cards (unit NRDRl) : 


Keyword 

Parameter & default values 

Function 

ALL 


All term of the 
phi function 
are used. 

DEFAULT 


Squared , linear , 
and the constant 
terms are used. 

LINEAR 

ALfZj 

All linear terms 
(including the 
constant) are 
used. 



TERMS 


300 


default values 


Function 


. N^'s specify 

the linear terms 
used . 

Squared terms are 
used. 

All interaction 
terms are used. 

The interaction 
term between the 
term & the N2 
term is used. 

Constant term is 
used. 

Constant term is 
not used. 

End of the input 
information about 
the Phi function. 


In/Out 

Out 


Description 


Indicates terms of the 
Phi function to be used. 




B.7.5 Storage 


Program Size = 3506 
B.7.6 Description 

Subroutine SETTRM reads LARSYS type input cards which specify 
which terms of the phi function are to be used. This information 
is stored in the array TERMS to be passed back to other 
subroutines. 

B.7.7 Flowchart 
N/A 

B.7.8 Listing 




FOPTPftH IV G LFVFL ?1 


SFTTRM 


OAT€ s 79003 


niP SFTTRM 



nool 

nnn > 

nooi 

0004 

onoc ; 

nnoA 

0007 

0000 

OOOQ 
00^0 
AOl 1 

001 ? 
OOJ 

0014 
noi«i 
noN K 
0017 
nni p 

noia 

00?0 


00?1 

on?? 


00 ?*^ 

00?4 

00>«5 

no?o 

nnp7' 

no?o 

00*10 

0011 

A 01 ? 

0011 

00'»4 

001 *^ 
on *6 

00 47 

no 4A 


noiq 

fsncn 

not] 

00 ^? 

0043 

00 < i 4 

nn 4 s 

0 P 47 

004(1 

00=0 

oo-si 

nos? 

onsi 

ons4 

no'^s 

onsft 

nn^'T 

nO'in 


C KPITTt'N «r r W AHLEP*; 

C ‘^FTTrt* KEonS CflWOS TO PPOOUfF A VFCTQP INDICATING THE 
C TFPxs I'( THF PHI function THAT APE BFING O^FD 

•;ijppoi)Ti<je «FTT««(ni 
I"p| IrIT INTFr-FH (A-7) 

oi^rNPiON rnoFMO) .capo(of) .foucomo) ,acapo(2o> 
rOH“ON /TUN/NTPMl 
ntp=N<;roN wOPK (■»()> 

DIPFN<;inN Cl ASHC?) 

f'ATA SI ASH /U*/*/ 

DATA rOOF/tL INF* ♦ 'SUUAI. • INTF*t 

• •rose • . • 4LI • ,tntF» • » **ENn»/ 

DATA F0UCOK/?t *=•«*,*/ 

DATA Y/>Y«/.RLnk/* i/«LL/*L*/«A/*A</tS/*S*/,NN/*N*/ 

OAT* ir/*i*/ 

rovsoM /TP«/TFo>=Pnsii 

common /ilN/NPOPl ,liOnP?.NPPT.PUNIT»YUNIT 

r ..VTTF INT>)M| •POP) 

opo FCpmaTIIh ,»pftTPm*1 
NOI AO = 0 
APIIT=7 
L=n»fn»i)/? 

Ni=t*n-*i 

c 

«“I TF ^•''®PI^lOOJ 

100 fOOMAT(/llK. *TFPHS FOR THF PHI FUNCTION*/) 

r 

f SFT UP OFPFAO OIIFFFR 

r 

PPUNIT = 30 

CALL »FPFAn(RRUNITt<UI> 

C 

C PUT CAMP IN miFFFH 
r 

IOC RFA0(NRi)wi.l03) (ACARDU) .1=1.20) 

103 F()ppaT(70A4) 

P--rTE IO.JIJNIT.101) LACAHrXI) .I»1.?0) 

OFsING rtPLINlT 


PEAf)(HP.isrT. 1 101 COPEI .CAPf) 

PFUTNt) RRUNIT 
roi = 0 

Ui- 1 TF (NPmT . 1 ?n > CODE ] . C ARO 
1?0 F0?«AT(lX.A4,ftX,62Al) 

110 FflPPAT (44,0*.F.?A1 ) 

DO 130 1=1. A PUT 

u ironn.Fo, COOP <1)1 go to ( 150 . 100 . 210 , 330 . 370 * 

« 390.420), I 

no contt'juf 
ns wv)tk('.“>>t.140) 

14(1 F0pPAT< < INVALID CONTROL CARD - IGNORED *) 

r.t) ro I os 

LINEAR CARO 

nn M = N4TrMR(CAP0,C0L> 

N0l.fB=0 

IF IJC.FO.LL) GO TO 1S5 
IF (H.Fa.AJ GO TO 156 
IF tW.FU.HLNK) GO TO IDS 
IS? <.HITE(MPPT.1G3) 

153 FOPPATC EPPOR ON LINFAR CARD*) 

GO TO ins 

156 rONTlNIlF 
Il=L.l 
I?=N1 

no 1ST 1 = 11.12 

TFP“5 (11=1 

157 continue 
GO TO IDS 

1 S 5 J = FIND 1 ?( CARO . COL . FOUCOM ) 

IF (J .NF. ?) (50 TO 152 

NOLAR = NUHPFR (CARD, COL. WORK, NOLAB) 

no ISP i=i,NnLAB 

ITPM=wnRK(I).L 

t€RPS(lT«Hl=l 


16/5R/41 
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SFTOOOlO 
SFT00020 
SFT00030 
SFT0OO4O 
5FT00050 
SFT00060 
SET 00070 
SETOOORO 
SFTonOPd 
SETOOlOfl 
SFTGom 

•SFT00I20 
5FT00130 
SFTOnl40 
SFTOnlSC 
SFTonisrt 
5FT0O170 
SFTooino 
SFTonlPB 
SF.T 60200 
5FT00210 
SET0n??0 
5ET00230 
SFT(H1240 
5EI0n2S(l 
SFT00260 
5FT0O270 
SFT0O2RC 
SFT0n29O 
SFT00300 
SET00310 
SFT0O32O 
5ET0O330 
SFT(in340 
SETonlSO 
SFT00360 
SFT0O370 
SFT00380 
SFT0n390 
5FT0O4On 
SFT0O410 
SFT00420 
SFT00430 
SETflO440 
SFTOfiASO 
SFT00460 
5FT60470 
SETnOAflr 
SFT00490 
SFT00500 
SFT00510 
5ET00520 
SFT0nS30 
SFT00540 
SETonSSO 
SFT00560 
SFT0O57O 
SFTnOGBO 
SCTOOGPO 
SET00600 
5ET00610 
5FT00620 
5ET00630 
SFT00640 
SETOnGSO 
5FTnn660 
SET0O670 
SFT 60600 
SFT006P0 
SETOOTOO 
SFT00710 
5FT0O720 
5FT00730 
SFT60740 
SET0075C 
SET00760 




foptran rv 

r, LFVFL 

21 spirRM 

OATF = 79003 16/Sfl/*I 

^fTTRW 






I'^H 

CONTINUE 


SFT00770 



COL = COL - 1 


SFT0O7B0 



GO TO 105 


set 00790 


r 



SFTOOflOO 


C 

SOUAPFO CARO 


SETOOOIO 


r 



SFTOOflPO 

nn^? 

IflO 

« = NXTCHBrrAon.cou 


SETOOflSO 

ort«s'^ 


N0( A0=0 


SFTOOOAO 

nnA4 


IF I«* .^0. OLW J GO TO 105 


SFT00fl50 

OflA<; 


IF (M.fiJ.A) RO TO ion 


SETOOflGQ 

noAfr 


IF (M.FD.SI GO TO ?00 


SETn0fl70 

nn#^7 


WKfTFr*FRT.l A7) 


SETOOfiflO 


l«7 

F(10»^aTC« FP»OR ON SOUAPFO CARO*> 


SFTOOfiPO 

OnAQ 


GO TO 105 


SET00900 

nn^o 

170 

C0*‘'TI»'1}F 


SETOOOIO 

0P71 


nil 191 1=1,0 


SFT0U920 

Pf!7? 


noM=M>( 1.1,0) 


SET00930 

nn?'^ 


TFP‘'S(ITP'I)=1 


SF To 09 AO 

AHTA 

IRI 

COHTI'iUF 


SETOOPSO 

A"7s; 


mi. = rOL - 1 


SFT00960 

rif*7A 


GO TO 105 


SFT00970 

PPT7 

?00 

J = FIoOlPfCAPO.CIiL.EOIjrOM) 


SET009fl0 



IF I U .'lE. ? ) GO TO 135 


StTOOSOO 

A07O 


NOl.AH = Mtl*,rtFmrAfir>,COE,WOPK,NOL»H) 


SETOinOO 

pr-n 


on ?oi 1 = 1 . 1,01 AB 


SFTOlOlO 

OPt-l 


iT=-fOPKtn 


SFT01020 

POJ? 


nov=..piiT.iT,ni 


SFT01030 

OP 


TFOPSUTCFlsl 


setoioao 

00 ’4 

?ol 

rO'lTIMiF 


SFTOIOSO 

OOiJA 


nil = roL - 1 


SFT01060 

on^A 


GO TO 150 


SFT01070 


c 



SFTOIOflO 


C 

InTFi-ACTION CAPO 


SFTOIOSO 


r 



SETOllOO 

nn»<7 

21 0 

FONT If UF 


SETomo 

0 0<*A 

?14 

M = NxrCnP(CA«o,ruL) 


SFT01120 

0 M- ^ 


HOLAH=0 


5FT01130 

or *0 


IF (M ,t ), 51 NK ) eo TO 105 


SFTOllAO 

00-1 


IF (P.F ).A) GO TO Pin 


SETOI ISO 

oo<-> 


IF r«.c).ni GO TO PAO 


SFTOllGO 

no ''.7 

?1F 

WPTTFC'PAT.PPO) 


SFTomO 

or «<i 

??0 

F(i»*''ATt« FPPOn ON INTERACT ION CARD*) 


SETOI 100 

opot; 


GO TO 105 


SET01190 

OOvA 

?70 

rONTIAHF 


SFT01200 

* 00^*7 


DO ?31 1=1. t 

SFT01210 

O0*ia 


call NT-fMtn. I.I 1 .1?) 


SET01220 

0070 


IFm.FO.I?) CO T» ?31 


SET01230 

* OlOO 


Tn,P5(»)=l 


SET012A0 

OKI 

271 

rONTlflllF 


SFTO12S0 



GO TO ?16 


S^T01?50 

0 107 

?«0 

J = FTNOlpiCAPn.COI .FOllCOM) 


SFT01270 

01^4 


IF (.) .*F. ?) GO TO P)5 


SET01280 

01 rt*' 


NOl Ap = MIIMOfP<CApD.C0L,W0WK,N0LAH) 


SFT01290 

01 fiA 


rF(MOLA-,.GT.P) GO TO PIS 

SFT01300 

0107 


U='.ORKn) 


SFT01310 

fUOO 


r?=wo«Kfp> 

A 

SET 01 320 

OlOO 


IFin.l.F.I?) GO TQ 2Al 


SFT01330 

0110 


lTF«fp=Il 

Ay 

SFT013A0 

om 




SFTP1350 

on? 


!P=ITFi.p 


SFT01360 

nm 

241 

fONTI'lUF 


SFT01370 

on* 


ITP«=NP(Il.t?.0) 

SFToi lao 



TFPNS<fTP»*l=l 


SETtU390 

01 I A 


r*n = roL - i 


sftiuaoo 

0117 


GO TO PIA 


sftoiaio 


c 



SFT01420 


C 

CONSTANT CAPO 


SET01A30 


r 

, 


SETOIAAO 

on«» 

770 

M = NxrCHH<CARn,riiL) 


SFT01A50 

opo 


IF IN ,F0. "LUK » GO TO 105 


Sf^TOlARO 

ni?o 


IF (N.fi).NN) go Til lAl 


SFT01A70 

ni^i 


IF (h.FQ.y) go to 3A0 


SFT01A80 

01?? 

777 

wPTTFinPMT.nS) 


SFT01A90 

ni?7 

715 

FORMAT (• EPROR ON CONSTANT CAROf ) 


5FT01500 

0I?4 


GO TO 105 


SETO1510 


740 

ITPM = L,0.1 


SET0I520 


PAGE 0002 



SFTTHH 


OMt = 79003 


rnPTPiN IV G LFVFt ?J 
FTLf 9FTr‘>M 




TFP« 9 UTRM >=1 



r-ci TO I OS 

0 1 


ITMM=L*Orl 

oi?o 

TF««S(ITH* 1)=0 

013ft 

r , 

GO TO lOS 


r 

#* 

ALL CAon 

rt! 31 

370 

.CmVTI'JUF 

0 1 -K7 


00 3^1 1=1 .Nl 

01 33 

IT! 

TF 0 S 9 (n=! 

01 14 


GO TO ins 

• 1 

I 

r 

r 

OEFAUI T CAOO 

"1 7S 

l^n 

roNT irjijF. 

n) ■)<, 


no 301 t=i,n 

ni 


iTo«=i,pa,i,o> 

”'1 1 = 


If >"9 ( t TP"^! =1 

n) 10 


roMT iMit 

n) »a 


Il=L*l 

r 1 ..1 


t?=f 1 



on 39 ? 1 = 11 . la 

nji .1 

30 ? 

Tfoss(n=i 

nl44 

r 

(fO TO ins 

r 


r 



f - 

*100* 

PI iS 

A ?0 

rOfJTIMlE 



9FTUPM 

njir 


Ef«o 


G 
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B.8 SOFTWARE COMPONENT NO. 8 (NTRM) 


Subroutine NTRM computes rectangular coordinates for a location 
in an upper triangular matrix. 

B.8.1 Linkages 

Subroutine NTRM is called by SETTRM. 

B.8. 2 Interfaces 

NTRM interfaces with SETTRM through a calling sequence. 

B. 8 . 3 Inputs 


Calling sequence: Subr. 

NTRM (D, IJ, 

I, J) 

Parameter 

Dimension 

In/Out 

Description 

D 

1 

In 

Dimension of the matrix 

IJ 

1 

In 

Upper triangular pointer. 

I 

1 

Out 

First rectangular 
coordinate. 

J 

1 

Out 

Second rectangular coordinate. 


B, 8 . 4 Outputs 
N/A 

B.8. 5 Storage 

Program Size = 544 

B.8. 6 Description 

NTRM computes rectangular coordinates from a pointer indicating 
a location in an upper triangular matrix. 




B.8,7 Flowchart 
N/A ■ 

B. 8 . 8 Listing 




FOBTCan IV G LfVFL 21 
FIL^ NTHM 


NTRM 


DATE = 79003 IG/SA/l'i P*6F 0001 


onr>t 

Ao<'P 

000 “^ 

rtftcih 

Anp 7 
pnno 
nnpo 
noto 
pfU ) 
nr\? 
(*•'») 'K 
nai 4 
pp 1 c 


V»ITTFN PY C ArtLFPS 

COOHOINATFS FOR A LOCATION 


10 

?0 


• a p>r i. in 

THIANGIH AP matrix. 
cyBROIITINF NTRMtO.lJ.I.JI 
I>^TFfjFa |> 

T =0 
L1 = l 
L?=n 
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(»-K) 

COHI'iljF 
rONTi'iiiF 
J=r‘Ki-Li 
Pf TUMf 
F'"l 


NTR00030 

NTR00040 

NTROnO^O 

NTROnOAO 

NTR00070 

NTROOOaO 

NTR00090 


NTPOn 

NTROO 

NTROO 

NTROO 


NTRO0140 
NTROO 

NTROO 

NTR00170 

NTR00180 


00 

10 

20 

30 


50 

60 



B.9 SOFTWARE COMPONENT NO. 9 (ALPHA) 

The function ALPHA returns the number indicating the place in 
the alphabet that cooresponds to a certain letter. 

B.9.1 Linkages 

ALPHA is called by subroutines PPTA and SPPTA, 

B.9. 2 Interfaces 

ALPHA interfaces with other routines through a calling sequence 
B. 9 . 3 Inputs 

Calling sequencer Function ALPHA (S) 

Parameter Dimension In/Out Description 

S 1 In A letter of the alphabet 


B.9 .4 Outputs 
N/A 

B.9. 5 Storage 
Program Size - 596 

B.9. 6 Description 

For an input letter ALPHA returns the number that indicates its 
order of occurance in the alphabet. 

B.9. 7 Flowchart 
N/A 

B.9. 8 Listing 
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APPENDIX C 



C.l SOFTWARE COMPONENT NO. 1 (SPPTC) 

Subroutine SPPTC reads the input cards and sets option switches. 
C.l.l Linkages 

SPPTC is called by the program MPPTC and uses data initialized 
in PPTBLK. 

C.l. 2 Interfaces 

SPPTC interfaces with MPPTA through a calling sequence and 
interfaces with MPPTC and PPTBLK through blocks UN, PF, and FV. 

C.l. 3 Inputs 
Calling sequence: 


Subr. SPPTC 

(UNIT, M, D, 

T, ISGZ, NT, 

CATREC, NP) 

Parameter 

Dimension 

In/Out 

Description 

UNIT 

1 

Out 

Unit ntomber for the loss 
vector matrix data set 

M 

1 

Out 

First dimension of the loss 
vector matrix 

D 

1 

Out 

Number of channels 

T 

1 

Out 

Number of classes 

ISGZ 

10 

Out 

Number of classified into 
the different classes 

NT 

1 

Out 

Total number of pixels 

CATREC 

26 

Out 

Array recording occurance 
of categories 

N1 

1 

Out 

Array size used in PPTC 

NP 

1 

Out 

Same as NT 



Common blocks: 

See PPTBLK for information about the common blocks . 
Input cards (lanit NRDRl) ; 



Variables 

Format 

Fimction 

1. 

PFLAG 

15 

0- for short printout 

1- for long printout 

2. 

IDEF 

A1 

D- use default data vector 
input format 

N- input an input format 

3. 

(use if IDEF=N) 
NDATA 

15 

Nioitiber of data points per 
pixel 

4. * 

(use if IDEF=N) 
(IFMT(I), 1=1,20) 

20A4 

t 

Input format 

5. 

IDEF 

A1 

D- use default feature 
index vector 

6. 

(use if 1DEF=N) 
(FEATVC(I) ,I=1,D) 

3012 

The feature index vector 


C.1.4 Outputs 

Input information is printed out. 

C.1.5 Storage 
Program size = 3700 

C.1.6 Description 

SPPTC is the input subroutine for all except the pixel data. 

If default options are not used this subroutine inputs the format 
for the pixel data and the feature index vector. 



C.1.7 


Flowchart 


N/A 


C.1.8 Listing 
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rriF uppTf 


C antPTFD BY C w «HLFf<5 

SUMBOKTINF <;pPTC(UNIT,H,0,T.ISRZ.NT.CATRFCtNl,NP» 
t»)TFr,EJ n.T.,C4T.'lN|I 
1 aFRFR C4TOFC<?ft} 

INTFRFO TFBms 
ro^ptiN ytw'ytfpbs « ) 

ro*'«nM /lt/lfttf»(?6> 

niwFMRTON T<;<;7(in> 

IFTFRFO rnjurt.WUMT 

rowMO'i /iiv/NHt)«i » nrop?.nprt»runit,vunit 

fr TFfiPP PFL«<3 
COPPRN /pF/PFI A fi 
I' TFRFO FFiTvr.TTtDO 
COMMON /FV/FF/TVCnn) ,IFMTnO) iNDAT* 
r ptp#-*FiFP ,Ti=in.w=io 

c oi«pNsiOMs c-i£rKEO ir« tpis suppootinf 

oftTA *jni/i<,i/,Tr/lo/.on/3n/ 

0»TA 

()Oii«LF ppfrisioiv CdO.iDi 
f 

PEviPti 'leooi 
OF ^ I NO ’■'POP? 
on IPR r = l.?f. 

3<>q ISR7<1)=<» 

WT = 0 ‘ 

r PFAf) I'.PIIT Dili. 

PFAHCNPlHl.lO) PFLAC 

IIMTSVIINIT 

in FOPmaTIPIb) . 

-HTF<iiPOT,?0» WIT 

?o FnP'tATr//.10Jt«»L05S vector HATRIA unit N0» = ‘flSJ 

PFJlrfn icjlf 

PI F<.P*<AT < PIRV 

PFAF'dlNir.-ITSl PtOtT 

H 7 E 

t'0ITFt'l“PT,-»7FJ “ 

J7A Fi)-vAT(//.|nA.»P = *tIR) 

-p r TF (f'-'-7T. p?) n<T 

2? OF CHANNFLS=»tlbt//«10A»«NO, OF CLASSFS='< 

® IB) 

IFin.Ri.nnj ^httfinprt.ioi) no 
!F(T.RT.TT) *MITMNPAT . 1 021 TT 

ini Pn.3vfT(//, lOX, > FPPPR — THE-NO. OF CHANNELS EXCFFOS '.ISI 

10? FORPAUy/.inx,' FPROP — THF NO. OF CLASSES EXCFEDS »«ISI 

lF(n.r,T.om STOP 
IMT.GT.TT) STOP 
NP=NT 

PFAn<U'il I .in ' (CATPEC <1 ) .1=1.20) 
m FfioPAT(ROIl) 

■yPITF(1Pi/T,A1?) 

617 FOP«AT<//.5S7.«rATEGOBY* .bX.’INDFX') 

0(1 oin I =l,?(j 

IFICAT-^fCtn.FO.O) PO TO hio 
wpTTF tsppT.om Ltneoai .CATRECii) 

0)1 FO-fATHH . ISX.Alf 10X.I3) 

61(1 fiiNTIN'JP 

Nl=fl»l*(0‘M0«U J/? 

PFArHUNlT.ini (TFPH^tn rIsl.Nl) 

WRITFrNPRT.IlT) 

313 FOftn4Tt//.10». »ThF TFqn FFV FOR THE PHI FUNCTION*) 

KBITFrVPRT.312) (TFRH<jm,l = l.Nl) 

31? fopmatoh .lox.bnii) 

nFAntH'in.7?) nCU.J>,J=i.T) tI=l.T) 

32 F0SHAT(?0?n. 10) 

«(PtTF(APPT,3S) 

3S FO“Hftny/,inx.*THf COST MATRIX*) 
no ISO 1 = 1 .T 

WITFINPRT.PS) (C< I.J) tJ=l.T) 
isn CO'TCMI'’ 

PS FORMAK/’/. mx.lOFS,?) 

Rf AniNonpi.sno) idef 

sno FORMAT < Ml 

IF) JnFF.FO.IYl 00 TO S07 
OFA0(A!PnRl,10} MOATa 
444 F0R'«4Tt//.10X,*H[(MA=».IS) 

C RFAO in THF format for THE FEATURE VFCTOfi 
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SPP 0002 Q 
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sppooooo 
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SPPOOISO 
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SPPOOIPO 

SPP00200 
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SPP 00220 

SPP00230 
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SPPO02S0 

SPPOOPOO 

SPP 00270 

SPP002RO 

SPP00290 

SPP0O3OO 

SPP00310 

SPP00320 

SPP00330 

SPP 003 AO 

SPP003SO 

SpP0O3)i0 

SPP00370 

SPPOOTBO 

sppon3sn 

SPP 00400 

SPP00410 

SPP(]0470 

SPP0O43O 

SPP00440 

SOP 00450 

SPPOOAOO 

SPPQ0470 

SPP0O4BO 

SPPOnAQO 

SPPOOSOO 

spponsio 
SPPons?o 
sppons3 
SPP 
SP 

p 

SPPOOSBO 

SPP005RO 

SPPOOOOO 

SPPOOOlO 

spponopo 

SPP00030 

SPP00640 

SPPOOOSO 

SPPOOOOO 

SPP 00070 

SPPflOOBO 

SPPOOOOO 

SPP 00700 

SPPOOTIO 

SPP 00720 

SPP0n730 

SPpoa 740 

SPP(I 0750 

SPP00760 




fn«TP»»! IV tj tFVFt ?1 


<;pi>TC 


0#TR » 7900T 


FKF 9DpTf 


vf«r)ii'D0Pi.*‘5n> rFMT 
) F0P«ATni)A41 
rnr,T iNDf 

«wtTF f'>>Kr,4*4» H04T& 

WPrTF ('iPWT.i^il ) 

VKrTFr*jphr.4‘i«i ifmt 

t format (//, I fix. IFFITUPE VFCTOR FORMAT <1 

Fno«Ar t//.inx,?OAA> 

FFAn (NPHR] , AtlF) IllFF 
IF fnFF.FO.TY) fiO TO Rao 
fan IH THF FFATItRF IK'OFX VFCTOR 
PFAOI'H VI.4S?) (KF.ATVCUU 1 = 1^0) 

> FliMMAT OfiJ?) 
r'lwTT' ‘IF 

WPiTF l'tR"T.4S9) (FF4TVrn» »I = 1»0I . 

F t- vaT(//. 10X, .THF FF4TIIRF IMOEX VECTOR * .//.t0X«3013> 
•1R 1«A 1 = 1. n 

IFIFFA rvC(II.LR.ii) i-RiTEfNPRT.IClI 
IFtFFATVcni.LF.") STOP 

f8pIatV//.1('X,*fwkor — FFATIWF VECTOR FORMAT - Oft -'t 
•< FFaT'I'^F I'^OFa VFFTOR I? WRONG* I 
-PlTFf.wi T.R1) '•! 

F(i-»vAT l/'/.l n«. *Nl = * . IRl 
UlM .OT.Hfill wftlTEfNRftTtin.D NNl 
IF (►■I .OT.ViI I STOP 

format I//. inx.t FPftOR — MJ EXCFFOS *.110) 

F'O 
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C.2 SOFTWARE COMPONENT NO. 2 (PPTC) 

Subroutine PPTC is the main computational subroutine of the 
processor MPPTC. Input from SPPTC is passed to PPTC. PPTC 
with the aid of other subroutines calculates the classification 
losses to find the minimum loss. 

C.2.1 Linkages 

Subroutine PPTC is called by MPPTC and is passed information 
from SPPTC. PPTC calls subroutines READIT, PHI, PPTSUM, 
PROBSUM, PPTDTL, PPTTAB, IBETA, PSFMFL, GTDWR. 

C.2. 2 Interfaces 

PPTC interfaces with other routines through a calling sequence 
and common blocks UN and PF. 

C.2 .3 Inputs 
Calling sequence: 


Subr. PPTC(M, 

D, T, ISGZ, 

NT, UNIT, 

Nl, A, L, P, CATREC, X, NP) 

Parameter 

Dimension 

In/Out 

Description 

M 

1 

In 

First dimension of the loss 
vector matrix 

D 

1 

In 

Number of channels 

T 

1 

In 

Nximber of classes 

ISGZ 

10 

In 

Number of pixels classified 
into the different classes. 

NT 

1 

In 

Total niomber of pixels 

UNIT 

1 

In 

Unit number for the loss 
vector matrix data set 

N1 

1 

In 

Array size for A and P 

A 

(N1,T) 

In 

The loss vector matrix. 



Parameter 

Dimension 

In/Out 

Description 

L 

T 

- 

The losses for each class 

P 

N1 

-* 

The phi function vector 

CATREC 

26 

In 

Array recording occurance 
categories 

X 

D 

- 

The feature vector 

NP 

1 

In 

Same as NT 


Conmion blocks: 

See PPTBLK for information about the common blocks. 

C.2 .4 Outputs 

Classification information is printed out. 

C. 2 . 5 Storage 
Program size = 13624 

C.2. 6 Description 

PPTC takes the interproduct of a loss vector and a phi vector 
to determine a class loss for a particular feature vector. The 
minimum of these is used as the classification for a particular 
set of input data. 

C.2. 7 Flowchart 
N/A 

Listing 


C.2. 8 



Parameter 


Dimens ion 


In/Out 


L T 

P N1 

CATREC 26 

X D 

NP 1 


Description 

The losses for each class 

The phi function vector 

In Array recording occurance 

categories 

The feature vector 

In Same as NT 


Common blocks : 

See PPTBLK for information about the common blocks . 


C, 2 . 4 Outputs 

Classification information is printed out. 

C.2. 5 Storage 
Program size = 13624 

C.2.6 Description 

PPTC takes the interproduct of a loss vector and a phi vector 
to determine a class loss for a particular feature vector. The 
minimum of these is used as the classification for a particular 
set of input data. 

C.2.7 Flowchart 
N/A 

Listing 


C.2 .8 
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no if) 
oooi 


0017 

0011 

00 

007<; 

ooir 
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on^i 

0044 

or>4S 
no4/> 
0047 
0041 
no«»7 
oncio 
0 0^1 
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nn-5i 
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C The PaT-PIT-TMADanI CLaS«5IFIFR. 

C SW• 1 R 0 llrT^FS RFOUIPEn...PHll «flFAniT. 

C TUI? puOGBftV* Cl OSSIFIES 7HF TFST PATTFPN X. 

C TPF LOS<; VFCTOP MATRIX IS OF40 OF A USER SPFCIFIFO UNIT. 

SUPROUTINE PPTC(M.n.T.ISG7.^^T»U^lTT.^n*A^L^P^CATRFC^X*NP^ 

C PAPAr*FTFB 

rUTFRPD f AT.O.Tftl'IIT 
TMTFGFP non ABU 1.1 0.0) 

I'lTFGF-A TYBF 

I'.TCGFP TRK.S1.TPMS?.TR''IS1 

rO^-vOM /TP/T»BS1 (?S6» .TRNS2(?ftl . IPNS3 12G) .KASX <1 1 * 3<>) 
rO'''*ON /r,Ts>f/NPl,NPl,NPPTl.TVL«(M iNl 1 *N 1 2»NWRU«NWRFtN0F 

IkTFGFP T»| 

OaTa rPL»)></« •/ 

ni>-fNsr'in rupAnipn) 
ni>'FnsTQ') tAivFP(B) 

I-.TEGFB CATOFr(?A>,ISG7(l0t 
I'.TFGFO B(iMtT.wll«IT 
r papabftfm 7T=io 

noiisiF BPFrisroH f im.ti.utupiuu.lmin 

IHiUwiF P-'tristON PPflPGPUl.ID.PROHAPm.ll) 

nniwi F RRF^IsTo^ pKCnoAin*!!) 
rnxvQN /CT/( fttfp (?<>) 
iriTFGF- SA«Pl,F.rTCAT.AICAT.«L»NK 
FATA BLAUX/i •/ 

IMFGFP alpha 
pIhFMsiOn inOTdi.iQ) 
pouBiF OHFrrsro)-' mo> 

r0-j-0li AK-t/MPOP 1 .WPORO .NPPT ,RUHI T . WUNI T 
•IwTFGfU PFLAG 
rOMHOM /PF/PFLAfi 


PFAn (OSS vFrroRs of apppoprtatf unit. 

COMPIITF CLASS LGSSFS LlJ) = A|J)»P. 

ASSIGM X TO CLASS WITH MINIMUM LOSS. 

PFAO LOSS VECTOR MaIRIX 
wgitf n.RBT ,777) Pf)»r, 

777 FOSMAT(//,inX.»PFLAG=».lSI 

BFA'niMlT.lnS) ( (Allf J). J=1 »T) . 1 = 1 ,M) 

ItiS FOVMATI’OPA.II)) 

NBITFIUPRT.TOA) 1 ( a ( I,J) .J= 1.T» ,I=I,rt) 

7flO FORMAT (7SX, ‘LOSS VFCTOP MATRIX •/. (2020.10)1 

r 

c 

\voF=n 

liOF=30 

99S CONTINUE 
URP|(=?7 
IGVFLGsO 
lAOFI G=0 
IGAFLG=0 
U)>'>l=0 
IUN(,T = f) 

N/TyP=n 
NPIsNPPT 
flMOF=llRRF*l 
taWiTF (UPRT.fiSS) 
fiSS FORMAT (I HI) 

no 8S6 1=1.10 
HS6 ISGZ{M=0 

on flso 1 = 1,11 

Of) H50 J=l, 19 
0(1 SSI S=l.3 

potlap(1.j,k)=rlank 

GSl CONTINUF 

MASxn,ji=o 
SSI) roNTiNUE 
TP1=T*1 

no 121 I=1,TP1 

on i?i J=i,TPi 

PhObAP ( I . J) =0.01)0 
pwriA(,A(i«J)=0.nN0 
121 PhO«GP(I.J)=0.000 

IF(PFLAS.GF.l) wniTF(NPRT,106) 

lOG FORMAT I//, 10 X,»TmF INPUT DATA AND CLASSIFICATION RESULTS*,//) 
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PPT00130 
PPTnoiAo 
PPT0O15O 
ppTnnibo 
PPT0O17O 
cPTonifto 
PPT00190 
PPTOOPOO 
PPTOOPIO 
ppTnri2?o 
PPT0O23O 
PPT002A0 
PPT002SO 
PPTOOPftO 
PPTonPTO 
PPT002G0 
PPT0OP9O 
PPT00300 
PPTn031O 
PPT00320 
PPT00330 
PPTonSAO 
PPT00350 
PPT00360 
PPT00370 
PPTOOOflO 
PPT00390 
PPTOOAOO 
PPTOOAlfl 
PPTOOAPO 
PPT0OA3O 
PPTOOAAO 
pPTnoAsn 
PPT 00*60 
PPT00470 
PPTOOAflO 
PPT0OA90 
PPTnOSOO 

ppTonsio 

PPT00S20 

PPT0OS30 

PPTOOS40 

PPTOOSSO 

PPT00560 

PPTOO570 

PPTOOS80 

PPT00590 

POT00600 

PPT00610 

PPT00620 

PPT00630 

PPT00640 

PPTO06S0 

PPT00660 

PPT0<I670 

PPTOOGflO 

PPT00690 

PPT00700 

PPT00710 

PPT00720 

PPT00730 

PPT00740 

PPT0O7SO 

PPT00760 


/ 
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PIIF >JPTr 


KOUNTsO 
PECIN LOOP 

continue 

no A6* Id.? 

RF»n(NP0P2.4ft?) IHFAn 

IF(IMFA0<1) .NF.IHUNK) tSITE=IHEAO(?n) 

IFdMFAOm.FO.IBLNK) OFTURN 
FOPMflTlPOA*) 

IFa.FO.l) WRITF(ixPflT.4EA) 

FOPMATI/y.lOX.iHFAnEP RFCOROS*) 

^oiTECNPRTxAAa) IHFAO 
FfiRWAT (//.IOK»?0AA» 

continue 

CONTINUE 

call PF40lTILINF.<4FPLE*rtTCAT*AICATtTyPF.X>D»ICMNT*lAIVEGI 
IF(LINF.FO.o> GO TO in 
KDUMTr^OUNT*! 

CA( L PPl fX.P»0«Nl > 
on 10 J=1,T 
Ltjl = o.onn 

00 ?t) 1 = 1. M 

L(;l = L(J) ♦ A(I.J)«Pn) 

CO'ITINIIE 

rONTlUiF 

OFTERMINF MINIMUM LO'IF AND CATFGORV, 

CAT = I 
LMIN = LU» 
no 30 T=I.T 

IFILIIl .CF. LMIN) GO TO 30 

1 MIN=L{n 
CAT = I 
CONTINUF 

If.T = AlPHA(GTCAT) 
lr.o=CAT«FC(IGT) 

IFaGP,E>..O.ANO.GTC&T,NE.PLAHK) U)NU=IUW) *1 
IF (GTCAT.EO. PLANK) IUNGT=IUNfiT*l 
1 31.7 (CAT I =1307 (CAM xl 

guUC(MPMT.3> (Xm). 11 = 1.0) 
wRITMNPOT.Sl (L<in.n=l.T) 

1r.» Oiii 

I=l INF 

IF(I.LT.l.OW.I.GT.ll) IPND=1 
,Js3A«»LP 

IFr.J.LT.l.ns.T.GT.19) IRN0=1 
IF(IP»n.EN,l) on 10 ?11 

TF(TTP<=-.F«.n) n2TYP=N7TYP»1 
MaSK(1.J)=7YPF 

IF (GTCaT.EO. PLANK) GO TO ?00 

K = l 

P0TLAP(I.J,K)=(,TCAT 
IFUGG.FO.n) GO TO 200 
1GPFLG=1 

PkmPGP( IGO.CAT)=PMOR(.P(IGG. CAT) *1,000 
TOUT TNUF 

IFIAICAT.FO. PLANK) GO TO 210 
K = ? 

nOTLAP(I.J,K)=AlCAT 

1APFLG=1 

IAI=ALPMA(AICAT) 

lAA=CATPPr(IAI) 

IFtlAA.FO.OJ GO TO Pin 

PMOPAP ( I AA.CAT I =PPOaAP ( I AA. CAT I *1 .000 

1F(GTCAT.E0. PLANK) GO TO 210 

IGnFLG=i 

PROPGAI IGG, lAA) =PPnPGA ( IGG, lAA) *1.000 
CONTINUE 

K = 3 

OOTLAPn,J,K)=IPFTA(CAT,CATRFC) 

roNTlNUF 

WRITE CLASSIFICATION PF3ULT. 

IF(PFLAG.GF.I) WRITF(NPHT,3) (Xd), 1 = 1.0) 

FORMATHH ,?X,.X«.2X.IGF6. ) 

IPR=IPFTA<CAT,CATPFC) 

IF(PFLAG.GF.I) WRITFINPRT.A) LINF.SAMPLF.GTCAT.AICAT.IHR 
IFtlHNO.EO.l) WRITFCNPRT.AAA) 

FORMATIIH ,lO».»nOT COORDINATES OUT Of HOUNDS*) 
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FOPTFAN 

IV G LFVFL 

21 PPTC DATE = 79003 

16/S6/A3 

ILF PPTF 

0114 


IFCPFtAG.GF.lli upiTF(NPRT«44) TYPE 

PPT01S30 

ni 

44 

FOPPATUH ,10X'»»TVPF = ‘.lai 

PPT01B40 

ni 

4 

FOPmaTIIM « jnX.*LINF=**l4»* samples'* l4t/» inx, t G. T. LABEL 

= *. PPTQISSO 



“ Mt7*l0x. 

PPTOlSftO 



» » A. I, LABFL = 'tAl./.lOX,' P. P. T. LABtL = »»Al> 

PPT01S70 

oi 


IF (PFI AG.OF.I ) W»lTF(MORT.4444) ICmNT* ( I AI VEG ( I ) * 1 = 1 >4 1 

POTOlSflO 

01 lx 

4444 

F0P"«T(1m ,10X,'A. I. COmmfnT = •,A4i/.10X.»VFGFT»TI0N s • 

.411) PPT015R0 

0| 


IF(PFLAG.GF.I» wPITEI^PRT.h> 

PPT01600 

0141) 

s 

foliuatum .fx.' ri ass loss •» 

EPT01610 

0141 


TF(PFLOG.FO.O) GfJ TO SSG 

PPT01620 

0143 


OC 50 1=1, T 

PPT01630 

ni**i 


IpO=IOFTA(T,CATPFC> 

PPT01R40 

A]U4 


«PITF<HPPT.FU iRp.nn 

PPT016S0 

niu5 

P4 

rOMTIniF 

PPT01060 

f !4S 



PPT01570 

0| ^7 

FI 

FOPMATClri ,10X,Al,SX,n2ft.ll)> 

PPT01660 

A1 


IF(“Ft 4G.GF.2) VPlTF (MP«T,«02> (Pit), 1 = 1,81 

PPT01690 

01 <*Q 

flip? 

FO(-v»i {/ix.,puj VPCT0»»./, eix.inpD.lo)) 

RPTO1700 



IF(PFLa0.i,f.i ) UPITF (NOPT.FG) XOUNT 

PPT01710 

Al^l 

C6 

FOR--aT( 1H ,10x.,Knili'JT = *.IS) 

PPT01720 

A 1 £,? 

IF(OFl AG.GF.l* V'PITF(>JPPT,FS) 

PPTOL730 

01^1 

5S 

format (,//) 

PPT01740 


C 

hkITF |mPkT, 4) roT 

PPT01750 

0 ] 


(•■0 TO 1 

PPT017A0 

r 

Flip OF LOOP 

PPT01770 

01C.S 

m 

rOnTlMflF 

PPTO170O 


«PITF(>-P«T,222> KW)NT 

PPT 01790 

''1-7 

2?? 

FncMAT(//.10X.'THF NO. OF SAMPLES = ••I«) 

PPTOlftOO 

01‘-'» 


-PITF (iJPRT.oofl) 

PPT01810 

01-0 

OOO 

F(il MftTI/lX.,...OVFPAi,u CLASSIFICATION PF5ULTS. , . '/I 

PPT0I820 

01^0 


on =10 r=l,T 

PPT01830 

oi*-! 


(HR = 1‘IFTA U'COTPFC) 

PPTOIBAO 

OJ--? 


HPITF (’■PPT.FnOl TS07(I1.IPP 

PPT0I8S0 

0|^1 

sno 

Fnp><4T(// JOX.IS, « PIXELS' CLA5SIFIF0 AS ',A1> 

PPTOISGO 

01-** 

‘ijo 

rt'OTi'niF 

EPT01870 

0 1^4 


IFnilNGT.NF.nl MRlTF(NPRT.5n 1 H(nGT 

PPTOlBflO 

0 \A/% 

FIl 

fnPMtT(//,l0X,ls.' PIXELS WITHOUT RPOUNO TRUTH*) 

PPT0)89O 

01^,7 


IFdUNlI.NF.n) WkITF (fPRT.SIP) IHNIJ 

PPTolSOO 

Ol^a 

Fl? 

F0PfoT(/,10X,7s. ' IlNllSFO ground truth SYMBOLS*) 

PPT0I910 

n 1 ‘•9 


IFIMZTYi-.hF.nj wpITF U'PRT.SI 3) NZTYP 

PPT0I920 

A) 70 

FIT 

FOPMATI/.inx.IR,' 7FR0 TYPE NUmsF.hS FOUND*) 

PPT01R30 

ol T\ 


IF UGPFLg.FO.I) wPITF (NPPT,7in) 

PPT0I940 

01 7? 

714 

FOPwi) (///,10X,*S1JMMaRY table for (,T vs. PPT*) 

PPT019S0 

oi 7*1 


IF (TGPFLO.FO. ! 1 TALI PPTSUB (PPOBGP.T .CATREC) 

PPT01960 

01 74 


IFUAPFLG.FO.il WRTTF (MPPT.720) 

PPTO1970 

r\\7^ 

724 

FORMAT (///.inX.'SUHMAOV TAhIF for M VS. PPT * ) 

PPT01980 

n) 74 


IFUaPFI.R.fO.D call PPTS*JH(PPDBAp,T,CATReCl 

PPT01990 

n I 77 


IFURAFLG.fo.D White (NPRT, 730) 

PPT02000 

01 

710 

F0o«AT(///. 10X,*S(IMMABY TAPIF FOP CiT VS. AI*) 

PPT02010 

0] ro 


IFURAFLG.ro.) 1 CAl L .PPTSUM (PPOaRA, T .CATHFC) 

PPT02020 

01 0 


IFURPFLR.FO.U VH)TF(NPkT,7T10> 

PPT02030 

oi»*l 

7710 

F(10MAT(//F.inx.*HP()ROBll TTY TABLE FOR RT VS. PPT*1 

PPT02040 

01 ? 


tF( JOPFLG.FOtJI (JALU PRnSUMIPPOBRP.T.CATReO 
IF tfAEELO.FoJ! OhITF |Mof*f itTPOl 
FOPMATI//F,)0)(, FRROBAHU {)Y TAflUF FOR Al VS. PPT*) 

IF ( upflg.fi>.!) Tall pRBSiiMiP)»nnhp,T»C4TRFC) 

PPTOPOSO 

01 ^ 


PPT02060 

n 1 -4 

7720 

PPT02Q70 

ri s. 


PPTOFonO 



IFUGAFLG.ro.!) WR)TF(NPPT,7730) 

PPT02090 

A1 *7 

7730 

FORMAT!///. 10X.*PRnBAPILlTY TABLE FOR GT VS. AI») 
IFU64FL6.F0.1) CALL PRB5UM (PRORGA, T .CATREC) 

PPT02100 

01 0^ 


PPT02110 

0109 


WPITF (MPRT.AIO) 

PPT 021 20 

OlOO 

6in 

FOBHATUriI.//.lOX.*rLASSIFIFO DOT LABELS') 

PPT0213O 

0171 


CALL PPTOTL (n0TLAri.NSYH,3) 

PPT02140 

01 


NWRF“1=NWPF-1 

PPT02150 

C 

WRTTF (NPRT.RSAR) NWRFM| 

PPT02160 

0173 

POf.6 

format (//,! OX. *NWRF«1=* .IS) 

PPTD2nO 

nit*4 


CALL FSFHFLINWRU.NWRFM) .ISTAT) 

PPT02180 

0)7Ci 


IFUSTAT.NF.n) mRITF(NPRT.6SI) ISTAT 

PPT0PI9O 

ftlOft 

GFl 

FORM4TI//,1oX,*ISTAT = *.)SI 

PPT02200 

01<*7 


1000=0 

PPT02210 

0170 


IFUOOO.FQ.O) GO TO G6R 

PPT02220 

0100 


00 B70 K=l,3 

PPT02230 

o?oo 


WRITE (NPRT.BflO) 

PPT02240 

0?01 

00(1 

FOPMATI///) 

PPT02250 

0?0? 

67V 

WRITE (NPRT.B71) ( (OOTLAB ( I, J.KI , J=l . 19) , 1=1 , 11 ) 

PPTQ226Q 

0303 

FORMATUH ,10X,19M) 

PPT0H270 

A?04 

870 

CONTINUE 

PPTO220O 


P*6F 0003 
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f)f) APO J=l.]q 

flPl^ 
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W«TTF(*1V‘^U,444) ISITF 

0?5? 

644 

FOOk-iT < “^ITf = »,A4»« TVPF = 41 ■•> 

n??'^ 
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r 

F“'OFII F NkPlI 

n??4 

64) 

FORMAT (tcITF = •,A*,t TYPF s PPT *) 


IFnfiiFLN.FO.l) call PPtT4Rt1,?.nr»TLAR) 

f\pp^ 


IF (ISPFLK.FO.U CaLL ppiTaHH *3,0011 AR) 

A?P7 


iFdAPFLrj.Fo.n Call ppttar(?,3,ootlab) 



GO TO P9P 
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C.3 SOFTWARE COMPONENT NO. 3 (IBETA) 

The function IBETA returns a letter corresponding to a category 
index . 

0,3,1 Linkages 

IBETA is called by subroutines PPTC and PRBSUM. 


0.3, 2 Interfaces 

IBETA interfaces with other routines through a calling sequence 
and the common block LT. 


0.3.3 Inputs 

Calling sequence: Function IBETA (CAT, CATREC) 

t 


Parameter Dimension 

CAT ’ 1 

CATREC 26 


Common block: 

COMMON /LT/LETTER(26) 


In/Out Description 

In Category index . 

In Array loader with index 

numbers corresponding 
to the letters of the 
alphabet. 


Parameter 

Dimension 

In/Out 

LETTER 

26 

In 


Description 

An array containing the 
otters of the alphabet. 


C.3. 4 ~ Outputs 
N/A . 


C. 3. 5 Storage 

Program size =430 



C.3.6 - Description 


IBETA returns a letter corresponding to a category index. 

C.3.7 Flowchart 
N/A 

C . 3 . 8 Listing 






C.3.6 Description 


IBETA returns a letter corresponding to a category index. 

C.3.7 Flowchart 
N/A 

C.3.8 Listing 
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C.4 SOFTWARE COMPONENT NO. 4 (PPTSUM) 

Subroutine PPTSUM partially compiles and prints tables of joint 
occur ances. 

C.4.1 Linkages 

PRBSUM is called by PPTC and calls IBETA. 

C.4. 2 Interfaces 

PRBSUM interfaces other routines through calling sequences and 
the common block UN. 

C.4 .3 Inputs 

Calling sequence: Subr. PPTSUM (PROBT, T, CATREC) 


Parameter 

Dimens ion 

In/Out 

Description 

PROB 

(11,11) 

In 

A matrix of joint counts. 

T 

1 

In 

The no. of categories. 

CATREC 

26 

In 

An array indicating the 
category index that 
■corresponds to a category. 


C.4. 4 Outputs 

PPTSUM prints out joint occurrance tables. 

C. 4 .5 Storage 

Program size = 1256. 

C.4. 6 Description 

PPTSUM fills in the totals and prints out tables of joint 


occurances 



C.4.7 


Flowchart 


N/A 


C.4 .8 Listing 
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FORMAT (//) 
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C.5 SOFTWARE COMPONENT NO. 5 (PRBSUM) 

Subroutine PRBSUM compiles and prints tables of joint probabilities. 


C.5.1 Linkages 

PRBSUM is called by PPTC and calls IBETA. ' 

C.5. 2 Interfaces 

PRBSUM interfaces with other routines through calling sequences 
and the common block UN. 

C.5 . 3 Inputs 

Calling sequence: Subr. PRBSUM (PROBT, T, CATREC) 


Parameter 

Dimens ion 

In/Out 

Description 

PROB 

(11,11) 

In 

A matrix of joint 




probabilities . 

T 

1 

In 

The no. of categories. 

CATREC 

26 

In 

An array indicating the 
category index that 
corresponds to a category. 


C.5. 4 Outputs 

PRBSUM prints out joint occurrance tables. 

C.5 .5 Storage 
Program size = 1220 

C.5. 6 Description 

PPTSUM fills in the totals and prints out tables of joint 



occurances 



C.5.7 


Flowchart 


N/A 


C.5 . 8 Listing 




FO<»T£»A^i IV 6 LfVEL 21 


PRflSUM 


DATE = T9003 



16/S9/02 


PAGE 0001 


PRROOOlO 

PPB00020 

PPP00030 

PPBOOOAO 

PRR00050 

ppfloooeo 

PPR00070 

pPROooao 
PPB00090 
ppRonioo 
pPBoniio 
PRP00I20 
PPP00130 
PPPOO! AO 
PRPOOISO 
PRflOQieO 
PRP00170 
PPHOOlflO 
PPP00190 
PPP00200 
PRROOBlO 
PPfl0n2?0 
PRPO0P30 
PRB002A0 
PPR00250 
PPR0OP60 
POROnaTO 
PRROOPflO 
PPHOO?<JO 
PPR00300 
PRR0O3I0 
PRB00320 
PRB0n330 
PRP003A0 
PRB00350 
PRB00300 




PRRStIM 


nflTF = 79001 


16/so/nz 


PA6F 0002 


FORTRAN Itf 6 LEVEL 21 
FTLF PptiRU*' 


cyMOOL 

%3npi 

LOCATION 

0 

COMMON BLOCK /UN 
SVHBOL location 

NROR2 A 

/ MAP 

cymbol 

NPRT 

SI7E 

LOCATION 

0 

14 

SYMBOL 
RUN IT 

LOCATION 

C 

SYMBOL 

munit 

location 

10 

^ywpOL 

TRPTA 

LOCATION 

as 

SUBPRORRAMS CALLFO 
SYMBOL LOCATION SYMPOL 

lOCOM* OC 

LOCATION 

SYMBOL 

LOCATION 

SYMBOL • 

LOCATION 

SYMPOL 

Pro 

LOCATION 

ca 

SCALAR MAP 
SYMBOL LOCATION 

I no 

SYMBOL 

T 

LOCATION 

04 

SYMBOL 

TPl 

LOCATION 
, DB 

symbol 

u 

LOCATION 

OC 

^vwpOL 

CtJHt-C 

LOCATION 

FO 

ARRAY MAP 
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SYMBOL 
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SYMBOL 

803 

LOCATION 

13B 
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C.6 SOFTWARE COMPONENT NO. 6 (PPTDTL) 

Subroutine PPTDTL coimts the number of categories in a specified 
209 dot gride as well as storing the category types found. 


C.6.1 Linkages 

PPTDTL is called by PPTC and must be called before GTDWR. 

C.6. 2 Interfaces 

PPTDTL interfaces with other routines through a calling sequence 
and the common block TR. 

C.6. 3 Inputs 

Calling sequence: 

Subr. PPTDTL (DMTX, NSYM, K) 


Parameter 

Dimension 

In/Out 

Description 

DTMTX 

(11,19,3) 

In 

A matrix containing three 
209 dot grids 

1 . gromd truth 

2. A. I. 

3. PPT 

WSYM 

1 

Out 

Number of categories 
found 

K 

1 

In 

An index indicating which 
of the 209 dot grids to 
examine . 


Common block: 

COMMON/TR/TRNSK256) , TRNS2(26), TRNS3(26), TY(11,19) 




Parameter 

Dimension 

In/Out 

Description 

TRNSl 

256 

- 

Not used 

TENS 2 

26 

— 

Category symbols are 
stored in this vector 

TENS 3 

26 

Out 

This vector is a compressed 
version of TRNS2 

TY . 

(11,19) 


Type mask. 


C.6 .4 Outputs 
N/A 

C . 6 . 5 Storage 
Program size = 832 

C.6. 6 Description 
/ 

PPTDTL stores category Labels in TRMS3 and records the number 
of categories in NSYM. 

C.6. 7 Flowchart 
N/A 

C.6. 8 Listings 
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C.7 SOFTWARE COMPONENT NO. 7 (PPTTAB) 

Subroutine PPTTAB prints joint label tables for the 209 dots. 

C.7.1 Linkages 

PPTTAB is called by PPTC. 

C.7. 2 Interfaces 

PPTTAB interfaces with other routines through a calling sequence 
and common blocks UN/and TR. 

C . 7 . 3 Inputs 

Calling sequence: 

Subr. PPTTAB (II, 12, DOTLAB) 


Parameter 

Dimension 

In/Out 

Description 

11 

1 • 

In 

Index for the first label 
type. 

12 

1 

In 

Index for the second label 
type. 

DOTLAB 

(11,19,3) 

In 

A matrix containing three 
209 dot label grids. 

1 . ground truth 

2. A. I. 

3. PPT 


Common blocks: 

COMMON/TR/TRNSK256) , TRNS2(26), TRNS3(26), MASK(11,19) 


Parameter 

Dimension 

In/Out 

Description 

TRNSl 

256 

- 

not used 

TRNS2 

26 


not used 

TENS 3 

26 

- 

not used 

MASK 

(11,19) 

In 

Dot Type Mask 



COMMON/UN/NEDRl', NRDR2 , NPRT, "RUNIT, WUNIT 


Parameter 

Dimension 

In/Out 

Description 

NRDRl 

1 

- . 

not used 

NRDR2 

1 

- 

not used 

NPRT 

1 

- 

Printer unit number 

RUNIT 

1 

- 

not used 

WUNIT 

1 

- 

not used 

C . 7 . 4 Outputs 



• 


j 

Joint label tables are written to the line printer. These tables 
indicate such things "as the ground truth label for a dot vs the 
AI label for a dot. 

C.7.5 Storage 
Program size = 1636, 

C.7.6 Description 

Joint label tables are written by PPTTAB to the line printer for 
the type one and type two dots. 

C . 7 . 7 Flowchart 
N/A 

C.7.8 Listings 
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WRITTEN BY C W AHLFBS 

This sdwoutinf prints labfl tabfls 

noTLAPCltJ*!) GPOIJND TRUTH LABELS 

DOTLAB(f,J»?) A. f. LARFLS 

nOTLABtl. )t"») P. P. T. LABELS 

sURUnUTINF PPTTAR{TI .I?«00TLAB> 

IMPLICIT IHTFC-FH U-71 
DATA SLASH/t/»/,BLANKy'i •/ 

DIHFNCION I INF(S7» 

CO“MON /llN/NRn«I «N»f>R?.NPRT .PUNIT.WUNIT 
CO^HON /TB/TRNSI (2S*» .TRMS?(?6) .TRNS3 <2ft) i HASK ( 1 1 t IRJ 
OIMf-JSION DnTLAHIll*19»T» 

KTYPP=N0. OF TYPES 
NTYPFa? 

no ino ITYPF=l.NTYPt ■ 
i.BiTF(*vPBr,in> 

10 FORMAT (1 HI) 

IEai.E0.1.ANn.l2.F0.2) 'URITEtNP»T.l?0) 

?0 FORMA T (//.sox t t6>JnUNn TRUTH VS A. I. LABELS') 
IFm.FO.l.ANO.ra.FD.T) WRTTFINPPT,! 30) 

TO FORMAT <//.ROX.»RHOi)Nn TRUTH VS CLASSIFIFD LABELS') 
IF(Il.F0.?.AMn.I?.Ff).3) WRITE (NPRTt2Tn), „ . ^ , 

30 format (//.KOXt'A. I. LARFtS VS CLASSlFteO LABELS') 
HPJTFl'iPRT.PO) ITYPF • _ . 

;0 format {// t«nx.'TYPF 'til*' DOT CLASSIFICATION') 
mrite«hprt» 30) (i,i=:io,iBft»in) 

|0 FORMAT (//.1?T«19I5) 
no 200 7=1.11 
t)(),2?0 J=1.19 
DO Pin <=1.3 
P0tNT = 3'»< J-J ) »K 
HMF1P01HT)=BLAW 
■10 CONTINUF 

IF<MASK(l,J).NF.nYPE> GO TO 220 
tL=3PCJ-D 

L INF (LL ♦) ) =00 TL AP ( 1 , J. 1 1 ) 

L INFILL *3) =nOTLAB(I,J*I?) 

IF(00TLAR<I,J.I1) .NE.PLANK.OP.DOTLABII>J>I2) .NE, BLANK) 
* LINF(LL*?)=SLASH 
■?0 CONTINUE 

im=i»io 

wPTTFtNPRT.300) 110, {LINE(KK) ,KK=1 *S7) 
ion F0«MATt//,«)x,13,19lHX,3Al)) 

'00 CONTINUE 
no CONTINUE 
RFTURN 
END 
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C.8 SOFTWARE COMPONENT NO. 8 (NLOW) 


Function NLOW returns a pointer to a lower triangular matrix 
given rectangular components . 


C.8.1 Linkages 

NLOW is called by PPTA. 


C.8. 2 Interfaces 

NLOW interfaces with other routines through a calling sequence. 


C . 8 . 3 Inputs 


Parameter Dimension 


M 

•C . 8 . 4 Outputs 
N/A 


In/Out 

In 

In 

In 


Description 

First rectangular 
coordinate 

Second rectangular 
coordinate 

Size of a symetric matrix, 


C. 8.5 Storage 

Program size = 490. 


C.8. 6 Description 

NLOW returns a pointer to a lower triangular matrix (size m by m) 
given the -rectangular components I an J. 


C.8. 7 Flowchart 
N/A 
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APPENDIX D 



APPENDIX D 


The following calculations are made in computing the LIST 
variables, 

BRIET (i,j) = (B(i, j) - MEANS) /SDG 
where i = pixel (1-209) 

j = index to acquisition number 

= value ex|:racted from 16 tape using the KAUTH transfor- 
mation 

SDB is calculated as described in Table 3-3 
(BI0 = biostage from second AI header card Table 3-4) 

MEANS is calculated as described in Table 3-3 

GREEN (i,j) = (G(i,j) -MEANS) /SDG 
where i = pixel (1-209) 

j = index to acquisition number 
G (i,j) = value extracted from 16-channel tape 

SDG is calculated as described in Table 3-3 

■ (BIO = bidstage from second AI header card Table 3-4) 

I 

MEANG is calculated as described in Table 3-3 

ABRIET_(i,j) = /BRIET(i,j)/ 

AGREEN(i,j) = /GREEN (i,j)/‘ 

4 - 

SQAIRB(i) = |] (BRIET (i,j)^) 
j=l 

4 . 

SQAIRG(i) = X) (GREEN(i, j)"^) 

j=l 

PIEB(i) ~ ^ (1 + ABRIET(i,j)) 

j=l 

4 

= TT (1 + AGREENU, j) ) 
j=l 



PIEG (i) 



CANKY{i,j) - 0 if PCR(j) = first class response 
5 if PCR(j) == second class response 
10 if PCR(j) = any other response 
PCR (j) = Pixel class responses (Table 3-4)- 
Class responses defined in Table 3~2 are indexed by biostage 
from header card (Table 3-4) . 

4 

CANTJ(i) = 0 if ? (CANKY(i,j) = 0 or 5 
j=l 

4 

1 if e (CANKY(iJ) > 5 
j=l 
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E.l SOFTWARE SUBPROGRAM NO. 1 (REDIF3) 


Subrpogram REDIF3 reads and decodes all of the input control card 
images {except for the MAPTAP card) when the DISPLAY processor 
is invoked. It also reads and interprets field cards (TEST or 
designated) . 


E.1.1 Linkages 

Subprogram REDIF3 is called from SETUPS after SETUPS has read the 
MAPTAP control card and the first two records of the MAPTAP file. 
REDIF3 calls subroutine CHIN, EOD-LARSYS utility routines FLTNUM, 
NXTCHR, LAREAD, FIND12 , NUMBER, and CMERR, and the Fortran re-read 
routine REREAD. 


E.1.2 Interfaces 

REDIF3 includes labeled common blocks /GLOBAL/ and /DISPL/. 


E , 1 . 3 Inputs 
o Calling Sequence 
Keyword Dimens ion 

TSTSAV (4,200) 

TSTFLD (5,200) 


TSTVER (VDIM) 

VDIM 1 

LISTSW 1 


In /Out 
Out 


Out 


Out 

In 


Out 


Description 

Test or Designated field 
information - class I-D,. 

# vertices per field 

Test or Designated field 
surromding rectangle line 
and sample numbers, pointer 
to field xn TSTVER 

field vertices from LAREAD 

Nimnber of words of available 
storage in ARRAY buffer, 
computed in SETUP 3 

Switch to indicate whether 
or not LIST processing has 
been selected 



Keyword 

Dimension 

In/Out 

Description 

GTDNIT 

1 

Out 

Ground truth dot file unit 
number (LIST processing) 

GTFILE 

1 

Out 

Ground truth dot file 
relative file number (LIST 
processing) 

AIUNIT 

1 

Out 

AI dot file unit number 
(LIST) 

AIFILE 

1 

Out 

AI dot file relative file 
number (LIST) 

PPUNIT 

1 

Out 

PPTC classifier dot file 
unit number (LIST) 

PPFILE 

1 

Out 

PPTC classifier dot file 
relative file number (LIST) 

NAMECT 

1 

Out 

Name of selected category 
(LIST processing) 

ALP 

2 

Out 

Bias correction alpha values 
(LIST processing) 


E.1.4 Outputs 
N/A 

E.1.5 Storage Requirements 
9962 

E.1.6 Description 

REDIF3 has been expanded to accept the new control cards described 
in Section 3. 2. 8. 3, in support of LIST processing. This extra 
information is passed to SETUP 3 and in turn to DSPLY2 by means of 
an expnaded calling sequence. The variables LISTSW to ALP 
described above constitute this expansion. 



E.l. 7 


Flowchart 


N/A 


E.l. 8 Listing 
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PFOnOTTO 

HEDOftTflO 

RE000790 

RFDOftrtOO 







c 



RFbd»636 


c 


IM7 

REOnOHAO 







r 



RFDO JM60 

_ 

no 


REDftOeTO 


€«#♦ COUF AnCFfJ M0\/ 13* 1970 JO I^'CLUO^■ LIST i"POCesSl*VG 

0 


c 



RFDOODRO 

no?» 



LtSTSw = 0 

wpnooQoo 

oops 



OTU^TT = 0 

PFonoRlo 

ni)2»- 



r,TFII F = 0 

PFOOmQPO 

OOP? 



sUjMT = 0 

PFnofj930 

nn?rt 



ATFH P = 0 

PP(>n0940 

00P<1 



PPU'' IT = 0 

REDO <1960 

00^0 



FPF M F = 0 

HFDftl>960 

00*^1 



LAMFfi = LG 

WFD00970 

003? 



AL^U 1 = n. 

PFDO<)9mO 

001? 



AL^t^l = 0* 

PFOOftRon 

no 34 



OOTfPt^sO 

PFoninoo 

O0?c 


* 

nOTKFY = ft 

RFDOIOJO 

00 



T6TKFY = •) 

PFDOl 0?0 

0017 



TH^JnEY = 0 

REDO 1030 

003'^ 



S7MKY = 0 

PFD01040 

no 19 



PCFfiKY =» 0 

PFDftl OSO 

0040 



PLTKFY = 1) 

MFD0I060 

0041 



P-.t-FHT = .1 

KEUOl 070 

n04p 



NO-cP=l 

PFOniOfiO 

nOwi 



FII TF«=0 

PFD01090 

0044 



Tf -'‘3VA = 0 

penonoft 

004*= 



F* = 0 

H#=“oni 1 10 

n04f 



SYi'C'IT = ft 

PEDftl 1?0 

nfl<.7 



Tn-'S'<Y = rt 

RFOftl 130 

n04M 



SToh^Fi- s 0 

KFrirn40 

00 



HHprw = 0 

REDO 11 so 

00^0 



NfJIkP = 0 

REOftl 16fl 

on«=T 



M'TPFU = 0 

PFDOl UO 

OOh? 



TY-^f=n 

PfOOllftO 

nosi 



Cr^PKFYsO 

PFOOnOO 

noAa 



Thsr»;T=(» 

Kf 001200 

nn^S 



l.f «l<f Y=il 

RF 001210 

oOnf* 



TS7IUT = ft 

RFpniPPO 

O0S7 



L<’6SwT 3 I) 

RK)01?3ft 

nn^-M 



Pcrt;<Y = 1 

REOOlPAft 

no^o 



SY'-'»'AY = 6ft 

KFDOIPSO 

no<50 



no 6 I=1,SVM«AX 

PFOni ?A0 

no4| 



7«‘'E'i(I) 3 0 

PEU01270 

004? 


6 

fOMT Iwi)'-" 

sFoniPftO 

OflftT 



MilFLf*3=200 

PFD01290 


r 



PEoonoo 


r 



LF^J 01 Tin 


r 


PE6D Iti SUPFKVISOri CARDS 

PF 1101120 







c 



PFOon«o 


c 


SET UP REPfftO DUFFER 

RED01350 


r 



Kfonj 360 

0004 



PHlwrT = TO 

HF001370 

006S 



CALL REKEAfKPPUNIT.eoi 

PEDOl 3fl0 


c 



RfOOlSOO 


c 


L'OiY pfad the capo Into the puffer 

RFOniAOO 


c 



PFIlftlftlO 

nOf>6 



CONTIMIF 

PF 001 A?0 

0067 


fs 

“EAiKpuiHot (ALAPnin.i=i.2ftt 

FEU01430 

006P 


Ifio 

format I20AA) 

PFN01440 

ftOf-P 



P«ITF (RPUf TT.lDft) (ACAROtll .l3l,?(|) 

PFOni A30 

0070 



PFrIM) RwUNtr 

RFOaiA60 

0071 



pfACi<Sn.iOA>rooF .card? 

RFfmUTO 

007? 


104 

F0PDAT(A4.6X,6?A1) 

PED014P0 

n073 



REWIND HRUNIT 

PFO0IA9O 

n07A 


37 

WR1TE(6.3II4) C00E.CARD2 

REOftlSoO 

007*^ 


•304 

Format (T7fA4.6X.6«;Al) 

RFDOISIO 

0076 


39 

COL = ft 

PE001S20 




09/‘i<i/S2 


PAGE 0003 


PFf)01G30 

PtOOlSAO 

PE001550 

PEOOl'iGO 

PFOOIS/O 

.PFOOlSftO 

oenoisoo 
-PFOB1600 
PHJOlfilO 
PFOOi^an 
MFOniGBO 
PfOOl'jAO 
HKDIUft'iO 
PFUtllftGO 
pFnni A70 
penoihao 
WEi>nif.9o 
Pf^D01700 
PF001710 
PEOonao 
PFD01730 
HFnn 17411 
ftFnoi7sn 
Rf 1)01760 
PH')01770 
PFD«U7aO 
RFDOnPO 
PFDOnOO 
pf DoiAin 
PFOOirt?!) 
RED01P30 
PFOfilft40 
PFOniAGO 
PEI)inP60 
REnoi-«70 
REDoiHan 
PFOOIFOO 
PFOOIROO 
PF001910 
WFI)fil9?0 
PFDOIPTB 
HtD01940 
PFDOIRSO 
RF(WU960 
Keoni<»7o 
KFDCIRHO 
RFO01990 
PFDOPOOO 
RFDOPnlO 
RFDO^llPO 
PFD0V030 
kFOOFOAO 
RH)n?oao 
PFlXlPOftO 

RFDOi-nTn 
REnoFOfll) 
RfUO>r)<yO 
RfOOFlOO 
RED0?1 10 
REI)0?1?0 
PED0P130 
RFI)fl?14fl 
PFOOP150 
RFDOPIGO 
Re00?170 
REOOPlflO 
RFDOrflOO 
REO0F200 
RFO0i;?lO 
RE00P??0 
RFDOf'PSO 
REl)fl«'?4n 
«Ef)0??50 
RED0<??60 
RE00P270 
REDflZZftO 




F0:JTO4N (V li UtVtL 21 




06Tt = 7833« 




PAQF 0004 




FIlF ->FnlF-> 

ni»n 

fl4l 

n?i? 

0143 


ni44 

nl4A 

r-147 

Pl-P. 

ni4« 

ni5o 


niPi 

MP? 

01S4 

PIS'; 

flliiA 


(upr 


msp 

ni'59 


(11^0 

niAl 


014? 

0143 

0144 
01(14 


0166 


0147 

0160 

0160 

0170 

0171 
017? 

Pin 


0174 
01 7S 

0176 

0177 


0170 

0170 

0160 

0161 


216 


C*»* 

c 

240 


?45 


C 

C««4» 

r 


WPlTFt6«21sl 

F0i7>'eT<i NO NAMF APPFA0S ON SFLECTEO C«TEGORY CARD •) 
NA-FCT = LS 
GO TO 10 

VftLUFS F07 ALPHA IN ftlAb CORRECTION 

H = FLTNUrt(CAhn?.C0LfALP*2l 
IF <“.F0.21 GO TO 10 
RRITF(6.24&) 

F0-<M4T(* FPHOR On alpha CAROi DEFAULTINF to ZERO •) 
ALHIll = 0. 

ALHl?) = 0. 

60 TO 10 


SCAN option card 


100 M = NXTCrlP(CtP0?tC0U 
no 3in 1=1. N 

IFlN.EO.COOarnni IGO to UO.34O,36Ot3ftO*305»39S, 

« iOT.apanooi.i 

110 COMTIMIE 1 

116 H6lTE«6t316?l COOF. CARO? 

316? format (//// sx »•»*** nSPl AV/PEDIF3 — - ERROR IN nOPTION'* 
•ki) ...•Z/6 X,?h«».A4*6x,62A1.?H*»//6X.«**«* SCAN OF THIS CARO 

?COnTI>vii£i) pHtOCEFDlNO TO NFXT CARD «*«»• ///) 

GO TO 16 


340 


160 


STATKY = 1 
60 TO IHO 


ThnFEY = 1 
G(i TO 140 


3A0 


M=NXTChR(CAPD?.COLI 
rFlM,FO.ClPCF0KV=l 
IF (M.fO.L)PLTKEY=l 
GO TO 340 


1A5 N0>iAP=0 


190 M = FlN01?<rAP02.C0L»F0OC0Ml 
IF ( M .LE. fl 1 GO TO 10 
6U TO 100 

t- «.» SM ImkESMhID aETS FOW FMPFRIC»L tHRFSMOUOINOt TORN OTHERS OFF 
195 ThmSY4=0 

FHPTR4=2 

T6R6Ar=? 

IjO to 390 


C 

C 

C 

C- 


— sFT Threshold keys For chi sqiiarf thresholding»turn others off 

197 FHPTRS=0 
THkSV4=o 
ThPSK¥=l 
GO TO 190 


C- — SFT ThhESHOLO keys FOR INPUT-VALUE THKESHOLDlNOtTURN OTHERS OFF 
198 FmPTRS= 0 
THHSVA=1 
TnrfSNY=l 
GO TO 190 

c- Check for fishfr or filter 


REO0P290 

HFOOP3O0 

kEnoPJlfl 

REOO?1?0 

kFU02330 

HF002340 

RfOO?lSO 

RFno?360 

HFOOPITO 

RF00?3hn 

REOO?390 

kEDQPAOO 

BFOOkAlO 

REU0?4?0 

kFl'O-’ASn 

REOn-'AAO 

RFOOt'ASO 

REIJ0?460 

kFOn?470 

PFOO'-ASO 

HFnn?49o 

PEi'OPSOO 

PEDOPSIO 

PED0?6?0 

RFOOs'SlO 

rfoopsao 

C4kEOP?S50 

DISPFD0P560 

RFDOPS70 

reoopsho 
RFOOP 690 
krOnPAOO 
RF00P6! 0 
RE0n^6?p 
PFOOPGIO 
PF00^640 
I-FIID^OSO 
REDO •'660 
PEO0?670 
fiEOnkdkO 
PE002690 
kE0n?700 
REOOP710 
PEOOi'TPO 
WFO0P730 
PFnn?74o 
REO027S0 
PFOOP760 
REO0P770 
PF0027HO 
R£00?790 
kFO0?600 
kFOOPHlO 

Oh00?«?(t 
MKOlAklll 

kFU0?''40 
RFIIOPHSO 
Rf 006660 
kFO0?87O 
RFDOPOflO 
PEfi02690 
RtU0?9«O 
PFO0P91O 
PFOOP9PO 
PFO0P930 
PFOO?940 
REDOP9SO 
PFD0P96O 
HFO0P970 
WFOO?9ftO 
KElJO/990 

REDO 1000 
REDO 1010 
PEOO J020 
RFD01030 
RED 01040 



FnSTWi J }v « tf VtL Z\ 


f>(;0lF3 


date = 7H33fl 09/'i<./S? 


PA6F 0005 



FtLP -frilF3 
nia? 

11 -s 

n I 
fll 


/•to-} 

(>194 

'll t,F 
AI<37 


fllcic. 

A199 

o?nn 

ftPOl 


070? 

'1703 

n?0A 


n?0s 


nPOo 

n?07 

n?0« 

0709 


n?I n 
n?n 

071? 


0714 

07J'; 

n^l*. 

o?l7 


071B 

(VP19 

0770 


0771 

n?7? 

0771 


0774 

07?*; 

n??B 


399 COt=COL»l 

‘=NXrCHrtlCA90?.COL) 

If If*.Kf).LLIGO TO 3990 
If (W.HI.LSIGO TVl 3991 
<:>(•, TO 319 
199ft FMTf- = l 
90 TO 390 

'3991 I«=n 

i<>. 34 tB 1 = 1 ."(IbDPa 
IFIrtfpPTbU) .PT.noFfT?lCf) TO 3999 
If Ur .• F.OIRO TO 3993 
..-'I Tf (0,399?) 

Fn9M4 ninil.//'//) 

i-ITf (9, Jh 94) I , KFPPTSd) > NOFFT? 

Fno«4I(i FI9HFR THWF9HOLO HFIUIFOTED-WOT 

n... IIO. 9/H'PLFS FOH SHhCI A99<»T4,»( = *iI9*U IS 
7 r.3 f»UHF9 ('F CHAImNELS ( = r, I9,i)»,/) 

3999 com 

If (U.7 ». 1)00 TO 399ft 
9-( Tf (9,399?> 

01' TO 390 


399? 


3993 

1994 


- — 9FT THHFSHiU.0 KEYS FO» 

3999 Fi 7T99 a« 

Ti'9sv4=n 

Th^9KY=4 


FiSfiEH thpesholoingiTurn dtmeps off 


c- 

c- 

c 

c 

r 

C 


4on 


c 

c« 

c* 

C* 


*no 

901 


5i) TO 390 

>-f«n ri>i tkoesholos 


roNTt'-'iF 

I = SY*'HA4-Th9CNT 

T»9CflT = TfSC9'T+FLTMJM(CARD?,C0LfTHKES(TrtSCNTtl 
00 TO in 


AftAl rST NAPE 

•«t Ancja.'odi) A^ALYS 
F()i'>'AT(l03,944) 
OfwiYil MHUNIT 
fcO TO ID 

rON»'it9T 


710 4FaO (30,9998) COHENT 
999A Fiiji-aT a(.X,19A4) 
HHdMIT 

r,uT0 1 1) 

: hEOl 


771) 


PEon (30,9998) HEDl 
AFwIftn pRtiniT 
GOTO 10 


f-rps 


730 


PtAO (30,9998) HE02 
iF-Thi' MRUNlT 
OOTO 10 


()4Tt 


740 


REAP (30,9996) PATE 
PevI''JO 8RUNIT 
GO TO 10 


PF003050 
PE003060 
RfOfl 30TO 
OFPOlOrtO 
RF003090 
RFOO UOO 
RED031 10 
RFD03170 
RFOn 1130 
=eOr)3l4i) 
RtOO 1)90 
RF.P03140 
RFP01170 
REP031B0 
9fiiri31 90 
RFP03700 

PERFOfi>»En*,/,B3, REP03710 
LF9S than OR FOUALRFP0J770 
RF00 3730 
RF003740 
RF no 1790 
RFP03790 
(•Ff)03?7O 
RFO037B0 
RFO 03790 
RF003300 
REOai3lO 
RF003370 
RFO03330 
RED03340 
REDl)J3bO 
PEO033ft0 
RFOn337(l 
RFDO iJflO 
RFP03390 
BFl)034n0 
PPI)n341 0 
REO03420 
RFP03430 
PFO03440 
RFPO 1450 
BPn03460 
RFO03479 
Rf 003480 
RFO0 3490 
RFPO 1900 
RFD03910 
fiFOO JS?0 
Rfc'O 03530 
RM)fH940 
RFOO 3950 
RtD03960 
PF003970 
HfP0398O 
RtnO 1990 
RFilo ihOO 
REOOlftlO 
RF.PO 3970 
Rfno 1G30 
RE(iOJ640 
RFOO 1990 
PF.tdllhBO 
RFPO 1970 
PEO039H0 
PEOO 1990 
PFPI) 1700 
4EP0 1710 
PFHO.3770 
PF001730 
RF003740 
REPO 3750 
RFOO J7h0 
RFPO ,770 
REP03760 
RE003790 
RFD0.3HOO 


1,11 




F'l.il^AN IV « (.FVfL «>l 


RFtUF 3 


BATE = 


FILF AEPIFT 


fip 77 

02 ?" 

A 73 '* 

A 2 AI 


A» 3 ? 

n?r» 

fipj* 


A 21 A 

flp 4 J, 

r.?3» 

r 53 <i 

(i?<,n 

a?aI 

'>?*? 

' 1 PA 3 

0344 

0 ? 4 F 

( 134 < 

0347 


T 34 « 

434 C. 

n 3 *-f, 

f 3 AI 

rpt-p 

'■ 3 ST 

0?~4 

f 3 AS 

P 3 ^#. 

o?A 7 

A 3 AA 


A?AO 

I13A0 

f| 2 Al 

n ?62 

A3ft3 

03 f -4 

0 ?AA 

0366 

r3ft7 

n 3 fip 

0370 

n> 7 i 

n?7? 

P 373 

0374 

027S 

A 37 A 

0377 

n?7a 

A27<» 


7 * 1(1 


C 

C 

t« 

C“ 

r» 


►'4P TAPE FnPPAT 

M = NXTCh:*(rAAn?«cnLi 
IF (*(.F'3.m)HaPFnT=l 
IF <m,F 0,IHM4PFPT = 3 
IF (F>.F0.hLflF'F)tlflPFnT=1 
Gl' TO 10 


pwocpnoAF CO jfigukation title 


7 G 0 


f » 

c® 

c« 


77fi 


772 

773 


f* 

C* 

C» 


7»n 


7A! 


C* 

C* 

C* 

C* 

c« 

c* 

c* 

r» 

c 

7fl5 




7BB 


OF Ml l3«.AqoH)CA«S 
HF rf I <l> fIr>lHlI T 
in' TO in 

AC 3 FAGF 

O=N«TCH(TICA<?ri3,r0LI 
!F(‘*.*'r,HL«'Jh)GO TO 10 
U (•-.F''.Co-'>'4>«(l 10 770 
0=F{Nni?lf ftPH3,COLifOUCOMJ 
IF(J.F0.3)G0 to 773 
v'OTTF (F. 773 ) 

FCipxAK* »E«1<0H IN ACRFAGF. CARO - CARO IGNORED*) 

GO TO M 

J = FL (OlH(riiR 02 .C 0 L«x.l) 

IFIM.rV .LT)ATOIAL=.X 
IF (rt,FO.LClAC« 0 o = A 
IF(M.K-j.Ln)A 0 ThrP =7 
GO TO 770 

INTFI<1IVE study CwOP NA'tE 

h=N<TCM4(CAPD3,cOL) 

1C=1 

SCKO^iSLAop 

crpkfy=i 
L rwop(ic)=iM(i) 
c«(ip=''CPop 
1C=IC»I 

IF Ur.fjT.AlGO TO 10 
H=A < IChR ( C aRO? .COL 1 

IPlF'.f I.eLANFIGO TO in 
GO TO 701 

DOT DATA PROCESSING 

OOTFlUF'S USFR ASaiONCn UNIT AND/OR FILE — DEFAULT UNIT- 
FILF =1 — IF CLASSIFICATION NOT BY CATEGORY* TURN OFF 

PSOCFSSING . 

OOTFUF CAPO 
CONTINtIF 

IF (NOCAT.FO.O) 60 TO 7P4 
DOTKfcY=I 

«=NXTC«R (CARO?*COL1 
TFlN.FO.dLANK) GO TO TPA 

IFIM. AF.UDGO TO 7P« 
t*=FINDl?(rAR02fC0L.E0UVECI 
IF(M.AF.2JR0 to 7R4 
ISTAHT=0 

M=MUNGFR(CA«D?*rOLt00Tr(NT*ISTART) 

M=F INI) 1 2 ( CARD2 .COL .EOUVEC) 

IFI^^.NA.d) GO TO 7 S 4 
lbTAHT = ii 

M=NIJHriFK(CAftO?*COL*OOTFIL*lSTART> 

OnTFIL=OOTFIL-l 
IFinOTFIL.LT. 01 OOTF1L=0 
GO TO 10 

IFTM.NF.LI) 60 TO 7fiR 
M=FIN012(CA»f)2. COL. SLASH) 

IFIN. NF.2) go to 794 
M=NXTChH1CAH0?.C0U 


09/S4/S2 


PFD03B10 
PFDOTflPO 
P6001H70 
PEDnTH4Q 
RFDOTASO 
6FD03H60 
PFn03B70 
pFoo lABfl 
RfOn 1 (J 90 
RFD0T900 
PF|in3vl(l 
pFoniRPo 
PFomNio 
hEOO (940 
pf 1)0 I9S0 
PFI)0396n 
PfOOTsTO 
PFon (9fln 
PEI'OT990 
PEDOAOOO 
PtOOAOlO 
PF004020 

PEnoAOSo 
PFn04(>40 
PFOOAOSII 
RED04060 
PE004070 
PFOOAOflO 
RE004090 
pFonoioo 
PF004110 
PF()OAl?(t 
PE004130 
fiFOl)A140 
PF004150 
RFD04160 
PF004I70 
PFonAioo 
PFD0A19P 
PED0A300 
PFl)04ai0 
RF.004??0 
PFnn423t) 
KEUO®240 
PEDOA2SO 
PED04260 
REDn*?70 

PFI)04?60 
PFO0a?9O 
PF.D04300 
fliOeFAULTRFI)043l0 


DOT 


PFD 0 A 320 
PF004330 
PE004340 
HF 004790 
RFD04360 
RF004370 
kElM143B0 
PFDD4390 
RE004400 
PED04410 
RED04420 
PEDOAARO 
PED04440 
RF004450 
PF004460 
PEO0A470 
RF|l044aO 
RFO04490 
PFD04S00 
fie004510 
RE004S20 
RED04G30 
HE004540 
RE0045SO 
PE004S60 


PAGE 0006 



FOPT04». IV I-, LFVEL pi 


PEHIF3 DATfc = 7833a 09/54/52 PAGE 0007 


-fnjF3 

n?ap 

n?J? 

njc* 

rt 3 (-c, 

0 >Of, 

n 3-7 

n?qt) 

n 5 0 fi 

il 

upo? 

npu 3 

fipCi 

nP-fT 

o?q> 


(Npqq 


0300 



0303 , 


03(1* 

0 30 A 
oin* 
r 3 ti 7 
(> 3 ( 1 « 

0309 

0310 

0311 


03X? 

0313 

031 * 

031 C 


0310 

0317 

031 P 

0319 

033(1 

03?1 

03 ?? 

(13?3 

03?4 

03?=; 
03/i* 
3 3?7 
03?<‘ 
0 309 
0330 
033 ! 
0 33? 

0333 

0334 

0335 


0336 

0337 
033P 


709 

790 


1F<M.P(3,LF1 go to 790 
TF(«.fO.LUl GO TO 786 
GO TO 794 

IF ("-( f^.LF) GO iO 794 
M=Pl3l3I?lCAP0?*C0L.E01IVFC» 

IF<«.KF.2) GO TO 794 
I9TAh(r=0 

M=i U'lHFp(rA90?»COL*OOTFIl.»I9TART) 
pOTFIL=OOTFlt.-l 
M=FiGfMi(CAO()?.coL.e(^ijveci 
IF(-'.G4’,2) GO TO 794 
J9T 4>JT=(1 

^1=M J.ni- H ( CAPO? . COL . 00 r UNT , 1 9 T 4R T ) 

GO TO 10 
nulFOPsl 
Ti 'KFY = ,I 
«i- tTF<6.4onO) 

4000 fO«“AT(//?X.* eOHOR OM tlOTFTL C4PQ»1 
GO TO 10 

C» 

C* 

900 COMTlMJE 
C“ 

»EMO» Con OF CONTROL C4PD5 - NOP FIND CHI-SOUABE THRESHOLDS, 
THFN oead in tfsT FIFLDS , 

IF <TH9C(^T .FO. 0) GO TO A30 '> 

IF ThP^SHOLOS RFRE Input FIThOOT option - ASSUMF CHI-SOUARE 
iFlTHR9Ky,F0.(i)THHSKY=l 


794 


C« 

C« 


C« 


C- 

C- 

C- 

C- 


MOFGR = N0FFT2 
IF IpxFLG .6T. 


01 NOFGR = HHCOMB 


BYPASS IF 'JOT FOUAL TO 1 OR ?. 
IFtThPbKY.GT.2) GO TO A30 


(30 B?S 97=i,nOSi|N 2 
rilGH<4/l = 1, - TnPFSIMZl 
TppFSM?) = CHlMriIGH{M/l ,N0F6R,FLAG1 
IF iFLAG.Etl.U GOTO 826 
GO TO J25 

R 26 WPnC( 6 »H? 7 ) mZ,THRFS(«ZI ’ . . .. 

327 FO-^PATl// 1 ««» A threshold VALUF IS OUTSIDE THE ALLOWABLE RANGE (IRFOOdOBO 
* - 1, TriF>FFOHF»/« NO THRESHOLDING HAS BEEN DONE IN THIS RUN BFOOA990 


RE004570 

RF0045BO 

PFOn^SRO 

RFD0460B 

PFP04610 

HF00462CI 

RE004630 

RFOn4640 

REOn-GSO 

PFD04660 

BF00467a 

PF0046BO 

PFPfl4690 

RFO0<.700 

RFP04710 

PCuO»7?0 

PCO (14730 

HFPftATAO 

RE004750 

HEP04760 

PFO04770 

RFon^TBO 

REOflATVO 

PFnnAROO 

HFPotaio 

RFOnAAPO 

RfOn4H3n 

ReO(lA640 

PEn<14350 

PFnnLflGO 

«FOn»rt70 

CFIXIaMPO 

PEO0»690 

PEP04900 

PF004910 

PED04920 

MF004930 

PEOOA940 

PFOOA950 

REUP4960 

KFOn4970 


c» 

c* 

c* 


3*«o, .Ts,FlS.5//) 

3 ,-^S<'Y X (. 

GO TO >'30 
rt25 CO'iTIMIE 
“30 rOiJTlM'E 

NO- READ IFST OR UESIGNATED FIELDS 


C* 

c» 


TcTVT3=tI 
fJOFI.f)J = l 
IAT = 1 

A40 ICi^=LAPFA0(TSTS4Vn,N0FLD3),TSTVEP(IPT) <INF,NV) 
IFnrK.F0.-3)GO TO H6S 
1F(ICA.FO.-?»GO To MSI) 

if(ICa.fo,-ugo To ago 
iFiiCM.EO. oiGO TO aro 
TSTSAV 1?,N0FL03) =CLSIN0 
TsTSAV ( 3,AOFLn3l =SUhtlivn 
TSTSAV (4,A0FL03) =NV 
TSTFL'' ( 1 ♦NPFI.0 3) = INF ( 1 ) 

TSTFL) (?.NOFi fl3) = lNF<?> 

TSTFU t3,N0Fl.tl3) = lfiFlA) 

TSTFL<'(4,N0FL113) = 1NF (S) 

TSTFLD(s,NOf L03>=1PT 
IPT=IPT ♦ PANV 
■30FL03 = GOFLOS » 1 
TOTVT 3 =rOTVT 3 *NV 
111) To B40 
SUBCLASS NAPF 


asn RFAOno,B5I)NAME 
BfWiNO HrtUNIT 
IF(TYPE.EO.?)GO TO 


1400 


RFOfl^OOO 

PFonsolo 

PFOnSOPO 

PEDOS030 

PEO0S04O 

PEOQiOSO 

«E00?060 

REHnS07Q 

PFOosoao 

PFOOSORO 

pFunsioo 
RFoml 10 
PFPnsl20 
PF0IIHl3() 
PEoOSlAO 
PFIOflslSO 
PF001160 
BH>D'il70 
RFOOslhO 
PFO0S190 
PFDOA?00 
PEons?lo 
PFOn^??0 
MFO0S230 
PEOns?40 
PFD0n?50 
PED0S260 
PE00S270 
PCDOS2BO 
PE005290 
RE005300 
REOO5310 
REO0S320 


Q O 

^ 55 

ei 

wp 
s 

td 

)~H 

o5 


£D 

I 
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»eniF3 


date = 78T38 


09/54/S2 


pace 0008 


FIUP •'EDIF3 

n37«J 

ft7»n 

A3A1 

n1*3 

AT** 

niaA 

AT*7 

rtl*^ 

n"»*5» 


m'^O 

0TG1 

03=;? 

nTGT 

AT";* 

niK»i 

ms7 

(i3Gj> 

OTSQ 

fiTftn 

(n^i 

aTh? 


fiTGT 

(iTn* 

r.TAc 

0 3A6 
0'»A7 
A 1*0 
n^*9 
ft17n 


TYPF=1 - 

nSl f«wmat(!OX,A*) 

no 8G2 l = l,A‘0SUB2 

IKNA"F.e(J.SUHNAMtI) lOO TO R5G 
«S? rONTI*iiF 

WPITflA.B'sTJNAMF ^ ^ ^ 

8G3 FO-»v*Tti «FPO0P OK SUBCtAGS NAME CA«D 
•CLASS F-<01 TmF MAPTAP FILE *») 

CALL C-'ERB 
85* SniM9ri=I 

CLM’o1=CLSSUMa> 

Ri> TO s-*0 


C* 

C* 

c« 


CLAGSI-IAHE CAPO 


C* 

C» 

c* 


«60 PFA0(10«8S1)NAMF 
SF'-I'ir. PPUNIT 
If tTYPF.E l.?)GO TO 1*00 
TV->F = 1 

00 061 1=1.N0CLS2 
If (NA-'F.Eo.CLSNAMtl ) )G0 TO R63 
“61 rOKTlNilK 

WwlTf tA,8A?HlAMF 

R6? FUA'f'ATt* »FPPOR ON CLASSNAUF CARD 
OAVF foo'1 TMF MAPTAP FILF 
Call C''F«P 
863 rtSINI)=I 
siiMiNn=o 
v^ll TO «40 

OESIGMIEO FIELOS 

06S fif Anno»8Sl)TEST 
PtulNO RA.iNlT 

iFdVPF.Ea.nGO to i*nn 

TYPF=? 

5\|MIHI>=1 

CLSlAjI) = NOSUril ♦ * 

If (TEST. fij. OTHER) SURINn=2 
IF (TEST. EO. OTHER) CLSIN0=N05U83*5 


c»** 

c«*« 


0371 

037? 

0373 

017* 

0175 

0176 

866 

0177 

0378 

*005 

0179 

03HQ 

867 

03H1 

01«2 

0383 

01^* 

fllHS 

868 

0386 

0187 

*006 

0188 

«m9 

0389 

C* 

c* 

c* 

870 

0390 

C» 

C* Nl 
C« 1 


This CODE ADDED AUG 31.1978 TO ALLOW CLASSNAME TO APPEAR 
Off OKsIGnATED card THIS FORCES AECLASSIFICATION OF 

OFSIGNATen PIXELS into iuf first subclass assigned 

TO ThF CLASS NAMED ON TmE DESIG CaRD STARTING AT COL U 

IF (TEST. EO.OTHFR. OR. TEST. EO.UNIDEN) 00 TO 8*0 
00 *66 I = 1,60 

IF (TEST.NE.CLSNAMII) ) GO TO 866 
II = I 
00 ID 867 
COnTIivOE 

wPirE<PRTUNT,*nn51 TFST 

FfiR lATl* UF-SIGNaTEO FIEID OF cLASSNAHd* . A*, 'DOES NOT 
> MaTC < A Cl ASSNAmF on MaPTAP— IJFFAULTINO to UnIDEN'I 
GO To 8 * 1 ) 

00 hOH I =1,60 

IF (II.NF.CLSSUBd)) GO TO 868 

SOmInD = 0 

Cl SIND = I 

GO TO a*9 

CONTINUE 

VP|Tt(PPTUNT,*006) leST 

FORMAT I' OFSIGNATFO fIFLD« .A*. 'CANNOT BE HATCHED 

' oefauliing to UNIOFNTIFIABLFM 

GO TO a*(| 

SEIJU* - END OF TEST OB DESIGNATED FIELOS 
N0FL03 = N0FL03-1 

IFeTYPE.EO.l .AND. NOFLD3.GT.O) TST|fEY= ! 

,;ITHER TEST NOR TRAINING FIELOS ARE ALLOWED.WITH DOT DATA 
PftOCFSSlNG — THE PERFORMANCE TAHLE , PCTAH . IS UTILIZED FOR 


RFD05330 
REO053A0 
REOOS35Q 
PEOOS360 
RFDDS370 
RFOOS3RO 

i.A*,' DOES NOT MATCH A SU8RFO0S390 

REOOS*QO 
REOf)S*10 
RF006*?0 
RFI)nS*30 
PFDBS**0 
RtOAhASO 
RFOOS*oO 

REnaM47« 

R£(X)-3*flO 

RFOOMq-iD 

PFOOSSflO 

PEO()->S10 

RF.0nSS20 

PF|)()S530 

HEDOSSAQ 

pfonsssn 

*,A*,» DOES NOT match A CLASS NPFfinSSGn 

PEOO-iSTO 

' PE0nS5«0 

RFOnSSPO 

RED0S6OO 

PEOOhgiO 

RFDOHOPO 

PFDOS630 

PFn06640 

PFI)!1S650 

HFO0S660 

PEDISGTO 

PEunsohO 

PFOOS690 
Pf O0S700 
PFP0S7H1 

RFOnsTPO 
PFOnS730 
PFrini740 
PFO0S750 
Rf.oas76Q 
PFD0S77O 
RFO()M7«0 
RFOOS790 
RFDOSflaO 
ptonsRio 
PFDOSRPD 
PED0H83O 

RFnnifl*o 

P6O0S8S0 
PEUOSOOI) 
PFOOH870 
RFOASAAO 
PEOOSHRt) 
RFDt)Y>900 
REonssio 
RFODS920 
RCDnSR30 
HFDI)S9*0 
RFOOSPSO 
HE0ns960 
PFDDS970 
PFOnsqso 
PFOnsqpo 
PFDDGOBO 
PEDD6010 
PFOI)6020 
PE006030 
RFI)06n*0 
RFDDO050 

REonoooo 
»E0n6«70 
PEDDOOaO 
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HFDIF3 


GATE = 7H33B 


09/5A/'52 


PaGF 0009 


Ol'il 


0- 5^? 
n-»<<3 
n?Q4 
mt,s 

01- fi 

0307 

tnoH 


nipo 

04ft! 

ftflft? 

0403 

0404 


040S 


0400 

0407 


040K 

0409 


0410 
041 1 


OOl 04TA classification PFRFONMANCt SUMMARIES 

IF I OOThEY .GT. 0 .OR. OOTFRB ,6T. 0 I TSTKEY = 0 
AOOEO UOV I3,l97fl TO INCLUDE LIST PROCESSING 
0) GO TO 900 


C* 

C» 


C«®« CODE 
L 


900 

C* 

ro 

c» 


IF ILISTSw.FO. 

T3TKF7 = 0 
noTKFY = ft 
= 0 

OOTFOk = 0 
rOLTIWJE 

IFITYPF.tO.? .ANO. NOFl.nS.GT.nlOFSKFYsl 

SET ThREMPOLO AND OUTLINF SYMhBflLS 

SYM^I t IN0S»»3) =THRSYm 
SY"'*!* (NOS'Jxl*! »=TPNSY-i 
SYMmT* tNv»SllR3*2) =TSTSYM 
SYM«T»(N(jSllRS*3>=frtlPSY’4 
SYMWTKlNuSllRl^AlsUFSSYM 
SYMMK (M}SIii3*S) =UE5SYM 

GO HOxF 


HETURfi 

EkPOR ROUTInFS 


WFDO6090 
RFOOMOO 
REDOftilO 
«E00t3l20 
REDOftlaO' 
REOOftUO 
PEDORISO 
WFnOMfiO 
REB0«'17<I 
PFDOMOO 
RF00»i90 
RFnnS200 
RFIlOnPIO 
RFD0hi>2n 
RFI)OR?30 
HE00n74B 
RFonopso 
RFnOfiPRO 
RFOOfi?7n 
REI)0^?h0 
RF0nR?90 
pfdot Too 
MFnOf.310 
PFD09320 
-RED04330 


RFOOA34Q 
RFD0o350 
PF009 160 
RFOOR370 
RFnoR3R0 

C PfC>0<=.390 

14011 wniTF(9*i4onn) REnnoAoo 

14000 FOP*'n(» TEST FIELDS AMD DCSIGNaTEO FIELDS CANNOT SE INPUT T0G£THFRE00'’41Q 

«R»/J MFD0A420 

ISOO *.RITE (6*lSn02) CODEt CARD2 „ PF;D0 c430 

isooa format (/'lx,A4.6Xtb2Al/* INVALID CONTROL CARD-CHECK SPELLING OF KEYRF1I06440 


-ORD > ) 
G(. TO 10 
Fiji) 


Reno»)450 

PEOOf.460 

RFD06470 







E.2 SOFTWARE SUBPROGRAM NO. 2 (SETUPS) 


Subprogram SETUPS, in conjunction with REDIF3, co-ordinates the 

t 

initialization function for the DISPLAY processor. In particular, 
it reads the MAPTAP control card, reads header information from 
the MAPTAP file (classification map) , ’and reads the dot data file 
in the case of a Pi (not LIST) application . 

E.2.1 Linkages 

SETUPS is called by subroutine DSPLAY, the driver for the DISPLAY 
processor. It calls REDIFS, EOD-LARSYS utility routines CMERR, 
NXTCHR, FIND12, WRTFLD, NUMBER, RDDOTS, FSBSFL, and standard 
Fortran functions. 


E.2. 2 Interfaces 

SETUPS has included labeled common blocks /GLOBAL/ and /DISPL/. 


E .2 . 3 Inputs 
Calling Sequence: 

Keyword Dime ns ion In/Out 

ARRAY TOP In/Out 

TOP 1 In 

LISTSW 1 In 

GTUNIT 1 In 

GTPILE 1 In 

AIUNIT 1 In 

AIFILE 1 ■ In 


Description 

blank common storage for 
use in buffering and data 
transfer 

Limit of ARRAY size, currently 
set = 10600 in EOD-LARSYS. 

See description of these LIST 
processing variables in 
subsection E.2. 3 



Keyword 


Dimension 


In /Out 


Description 


PPUNIT 

1 

In 

PPFILE 

1 

In 

NAMECT 

1 

In 

ALP 

1 

In 

E.2.4 

Outputs 

N/A 


E.2.5 

Storage 

Requirements 


13234 


E.2,6 Description 

Subroutine SETUP3 has been expanded to incorporate the LIST 

processing option. If the LIST switch LISTSW has been turned 

on in REDIF3, all other dot- related Pi switches are turned off. 

The PI dot file is not read. The calling sequence has been 

1 

expanded xn order to pass LIST information to DSPLY2 upon return 

f 

of SETUP3 to DSPLAY. 

E.2.7 Flowchart 
N/A 

E.2.8 Listing 




SFHI>'7 


DATC * 7833« 


09 / 63 /Sl 


PAGE 0001 


F.WWaN JV i. L»-V*-L ?» 


FI* P ‘■FTIIP 3 
nflni 
000 ? 


0003 

0004 


ooo& 


noOA 


0007 

noon 


nono 

oom 

fton 

001? 

0013 

flO|4 

flOl'; 

noiF. 

0017 

noip 


0019 

oo?fl 

0 fl?l 

00 ?? 

no?3 

O0?ii 

on?s 

oo?o 

00?7 

O02A 


c 

c«** 

c 


CSFNO 

c 


CljahOUTIHE SeTUP3(AftPAV,T0P.LfSTSW,fiT0NITtGTFlLE* 

* AtUfllT.AlFILt*PPUNIT»PPFILe*NA*oFCT. ALPl 
IWPLICII I^*TEGEP <A-2) 

CUOf onoho NOV 13*1973 TO INCUUDe LIST PkOCFSSING 

REAL ALP I?) 

LOGICAL iiGOY 
InCLIIOF COGmka.lIST 
INCLIiiIF rFOKin.LiST 

common /GLO'aOL/ iF *'i APT AP *r>OT APE * SAVT APtfihF ILEtHNKEY* 

* hIsF lL.tttSr<FY.THFOK‘t,tK!PTPtERPKF Y*MAPUNT*N0F1LE» 

* Hwinin*rih.i'«i)S,AA(>SI7.nATFIL*3TAFlL*ASAV*ASAVFL 

* .NMSruf.MhSlFI .SCIPUN.MAPFIL 

o ,noTciNT,nOTFll .>lC'1PA3,TRN3FL.H"Tt<FL*Hl<>TFL(PCHUNT, 
o runii ir,?<m(M*p«Mnio 

roMMOh/OlSPl /roTFLh*t aTnAH* A 1 1 *CLSNAM(f-l ) * 5 UHNAM( 61 ) tSUBNO( 60 ) t 

* SliHCnT (hn *CL3GttH(M>) , I'lOiiAP . TUT VT3* NUSUH3* 

* PCFOGy.ISTKEY*TPGKEr*THP<,KY,bTATKY,FMPTRS.ThfiSVA, 

* PLTistV.h'FLfttiXCOH-liPMFf AT.COaTF (?>* 

» FLl-Sv?.FrELn?*VFRTA?,FLflSV3*FIFLn3*VFRTX3*PCTI03. 

4 rpPF^(A0)*SY-*'4TX(AA|**tl(iHt(o0> *rOM ( A([) 

O *FL(l!<f Y, *3FLn?,M.lFLn3,‘'‘Ofet?,FtTVC?no) 

« ,,ii)Si.p?.f'OTPFiJ.TorvT?,NOCLS? 

* •' *KATN 0 *F 01 .NOCAT. FILIFH*«APFmT 

* .{iFSoEY.nFSU'Jf.nESOTH.CHOP .ACHOP.AOTHFR.ATOTAL 

« .SITE t 6 >.A.MLY?(M.CAM(l> 5 t.CRPKfY.AEPPTS(fiOI 

.J0I^f.Y.30rEMR 


Cf 

Cl- 

CI 

CT 

Ct 

C! 

Cl 

CI- 

C 

C 


C* 

C* 

C« 

c« 


c« 

r 

c 

c 

c 

c 

c 

c 

c 

c 


OATA A/»A*/.B/*M1V 
OaTA PLANG/’ •? 


PURPOSF,. LOfATFA file ON •mAPTAP* AND COOrtOlNATFS 

ROUTINE:. TO AUALY 3 F .OISPLaY' COmTkOL CAROS 


D 1 •"'ENS ION NUNVEC ( 30 1 . F ILVEC ( ? ) 

DIMENSION CAW 0 (A 2 ) .ARRAY(l) 

DIMENSION OOTCaT* 6 ?> 

EoUIVALENCF ( DOTCATCn . CAPO(l) ) 

DATA YrtCO/ »y* /. NrtCO/ *N* /. FILVEC/ 1 . >F« / 

DIMENSION FoilvECI?) 

DATA ORUM/*nwui* / 

data tHCfJ/«U'/.Fr*C 0 /*F‘/.IRCO/*! t/,F.QUVEC/l.* = V 
(ilMF'.SiU' SLASH*?| 

DATA SLASM/l.t/*/ 

INIZ 

— 


READ FIRST CONTROL CARD FOR HAPTAP UNIT AND FILE NUN 6 ER 

PEAD(CflDUNT.U CARD 
E'ORMAT< 10 X. 6 ?Al) 

NFILF = 1 
COL = 0 

J = NxrCHR*CAftO.CQL) 

IF tJ.EO.HLANKl 60 TO b 
IF (vI.NE:.U*iCD) 00 TO 3 
J = FIN 012 ICAR 0 .C 0 U.EQUVEC 1 
IF «U.NE. 2 > 60 TO 6 
ISTART = n 


SETOAOIO 
SFTOOOPO 
SFT00030 
SFTOOOAO 
SFTODOSO 
SETOOOAO 
SFT00070 
Sf TOOOAO 
SF T00090 
SE TOPlOO 
SFTnitllO 
SFT0til20 
SFT0II13O 
SFTOrtlAO 

SFinnisn 

SHOOISO 
SFT0gl70 
SFToniflO 
SLT 0 >i 190 
SFTOliPOO 
SFTOliPIP 
SFTO >??0 
S£Tni)230 
SFT03240 
SFTOliPSO 
5E T0PP50 
SETno?70 
SET0O2P0 
SFTO'1290 
SFT0H30O 
SFT00310 
SETOIMFO 
-ISFTOi'330 
-ISETOOIAO 
ISFTn.)300 
TSFT0V3A0 
SFTP0370 
TSFTOnSnO 
TSETOIllRO 
-iSFTOOAnO 
SFTOiiAlO 
SETODAPO 

sFroo43o 
SFTnJAAO 
SFTO PASO 
stm jAfto 

SFI00A70 

setooaro 
SFTni|490 
SFTOPSOO 
SFTOdSlO 
SFTO'iSPO 
SET0US30 
SFTonSAO 
SFrnosso 
sFTn-tsoo 
SFTO Ob 70 
btlOOShO 
— SF T0OS90 
SETflOftOO 
SFT00610 
SET00620 
SETOObSO 
SFTO**faAO 
SFT006SO 
SFTOi'AbO 
SFT00670 
SETfliiAOO 
SFT00h9O 
SFT00700 
SETno710 
SE 100720 
SFT00730 
SE T007A0 
SFT0O7SO 
SET00760 



FRP SFTOkI 

nojo 

00*11 

non 

onm 

nmr 

AOi*n 

0041 

ft0**4 

^'047 

0 (\h < 

0040 

Aftw| 

00-*^ 

nns3 

A0=»4 

no5S 

no«=-4 


nns7 

ooe-w 

Of>‘'-J 

ooi^r. 

OOi-l 

Of»r>-» 

nofti 


00^4 

Ofj^*- 


OOfi^ 

00^7 

onft« 


00r>0 

0070 
no7i 
no7^ 

0071 
0074 
007^ 
007fi 
0077 
Ofl7« 
0070 

no«o 

OOi-l 


0002 

OOOl 


; Lfvft ?i 


SFrUP3 


OftTE = 7»33B 


09/53/51 


PAGF ODOa 


h 

7 

10 


J = "lUdrtFRJCAWD.COLtMAPTAF.ISTAHT) 
J = FIf)()l?<C4«0«rOL»FOllV£C» 

IF IJ.'if.?) 60 TO 6 
IFTART r I) 

I = t.|Ji'«-)FR<rAPD»C0l.<NFILb»I3TA9T) 
fill Tti 10 

IF f.l.iF.THCn> GO TO A 
I = f lK01?{CAi'0»C0l»SLASrt» 

IF ( ),r-F,?l GO TO G 
I = 0<TC (R (CARD. COL ) 

IF (J.£u.F»CiJ) GO TO 5 
IF (j.to.mno GO TO 2 
on ro G 

IF <vi.‘-e.Fi.c(j) eo TO G 

J = Fi..ni/(C-i‘'fucoL.FotjvEr) 

If l >..if .3> Gw r<) G 

istart = 0 

J = ‘u.'GF>.{CAOfi,COL.NFlLF»l5TA«TI 
J = FiAijiPicAoo.cOL.eoovEr) 

IF t 1.1 E.?) GO TO G 
TLTA*.r 3 G 

,1 = 'l•J^^F•<(CAGI'.COL.MAPTAP, I5 TAkT) 

GO TO 10 

■*'01TFI6.7) 

FOG**>Tt • fcPRUR ON maPTAP CAPDO 
CONTH.-JF 


IF INFIIF.LF.O) 
Sf-'IoU = nFILF 

GFT TAPE pFADT 


NFILF 3 1 


AO PE<(!NO *iAPTAP 

IF ( mFILE .FO. I ) 60 to so 
imF = -ViF U f- - 1 

Ci-I.L FSBSFLI.AAPTAP.NF ,1STAT» 

IF (IRTAI -F(J. 0) GO TO GO 
“K|Tf(G. AG) fit'. ISTaT 

A5 FI..-GAT (//// G» .•*»«“» 0SPLAY/SETUP3 ... ERROR CONUITtON ON 
IPI TO POSITTliN MAPTAP OVFP» .I0*3)(, IFILFSV/ SX . 
f. .«««>& fgPSFL status code =• >lAOXt • ABORTING RUN *»«»» 

RF.INO UPTAP 

Call 

•'FAD lARTAP 


C* 


C« 

C* 

C« 


SG CONTINUE 
CaTFUG=1 

READC-'A-'TaP) COATfcdl .COaTE I?) 1rt^'FLG.ft'^CO«B.bNFeAT♦NOCLS^* 
« NOFLOP.NOSUPP.NOFErR, TOTYT2»NOCAT»VA>»S/2. 

o (FFTVC?(l).l3|,M0FEr?) 

ArAT3M)CAT 

l>- ( gOCaI.gT.OIGO to 5S 

CATFI G3I) 

M ATsMlCL*-? 

Sfl BASE AODNESSFS FUR TRAINING FIELD INFORMATION 
55 OiiiIlNLif 

NUSO-Tl3.lOSUO?*l 

FLIiSw33i 

VE-TA/3FLG5V? ♦ N0FLU2*A 
FlFl r)?3ve..TXp ♦ T0TVT?*2 
T(1P1= FIELD? ♦ N0FLU2*S 
'J\/=TOTVT?*? 

NF3NuFL02-*A 

Rt aoi^.aptap) icatnamii ) .I31,ncat> . (clsnamid ,i=i ,nocls?> < 

« (S'JHNOl I ) »l3l,N0CLS2) , (SllhNAM(l) ,I = l,N0Sua2>, 

o fArlPAT (FL0FV2-l»I) »I = 1.NFI » 

* (ARRAVIVFRTX?-I*T1.I = UNV) . 

o ISURCaTU I .l3l,N0SUB2j , (CLSSUB 1 1 ) . Is I ,nuSUH2) 

» , (KATGO(I) ,l3l,N0rLS2) . (Kf PPTS(I) »I=1.N0SUB2) 

GO RFAO control CARUS AND TEST FIELDS 

FLOSV3=TOP1 
FIFL033 FLDSV3 ♦ oOO 


SET00770 
5FTO(1780 
SET00790 
SE Toon 00 

SFTflllfllO 
SFTOOM20 
SITOOH30 
5ET OUOAD 
SFlnOflSO 
5ET0IIHG0 
SFTO'IhtO 
SFTOORPO 
SFTOiiRRO 
SFIOllROO 
SFTnnolO 
SFTftii92n 
SFTOfioaO 
5FT0I19A0 
SFTQIKJSO 
GETOllNGO 
SFTn'1070 
SET 00900 
5FT 011990 
5ETOIOOO 
SFTOlOin 
SFTnin?ii 
SFT01030 
SFTOIDaO 
SFToinso 
5FT010G0 
SFTO 1070 
SFTOIORO 
SFT01090 
SFTOllOO 
SFTOllin 
FFionao 
SFT0U3O 
ATTEF'SFTQUAO 
5FT01150 
»/lMi )SF rniiGO 
5FT01170 
SFTOUftO 
5FT01190 
5EI01200 

SFT01210 

5FT01P20 
SFT0I230 
SfcTOlPAO 
SF 101250 

setoipgo 

SFT01270 

SFT012H0 

5F.T01290 

sFTonoo 

SFTOniO 
SFT0n20 
SFT0I330 
SFT013A0 
SFT013S0 
SFTni3G0 
SETfll370 
SFTOITFO 
5FT01390 
SFTOIAOQ 
SFTOIAIO 
5FTO1A20 
Sh T01A30 
SFTOIAAO 
SFTO) AGO 
5F101AG0 
SETOIAII) 
SFTOIARO 
5FT01A90 
SFT0I500 
SFTOIGIO 
SFT0I520 


§ IV 

9 


& 


c3 




FOt»TOAH iv >. LKVEL 21 
pILF 


SETUP 3 


OATE = 7833ft 


0WS3/51 


Oft-4 

no,-ft 


nn-7 

OQKO 


ao^p 


'incfi 

no-Jl 

no«‘2 


n0P7 

AO'l* 

noftS 

009A 

no«:7 

no<*rt 


ntt'Tq 

moo 

nim 

mo? 

0103 

OU'O. 

mns 

mnf. 

0107 


OlOB 

oipq 

onn 

oin 

miE 

•'in 


mio 

m n 
nm 
mi7 
m ifl 
<'110 
nj?o 
m?i 
01 ?? 
'0123 


C* 


C* 

c 

c 

c 

c 


OFPFPvf MOO" FOP POO TFFT FIELDS 
vt®^r*3=Ftei.n3 » JOOO 
V{ T" = T«-P - VFPTA3 

CALL -F0lF3(AP«01f (FLllSVSl t APR AY(HEL03> » AHRAY ( VFPTX3) « VOlMi 
»- UL-rS'tmuMTtUTFILF.AIUMlTf AlFILF tPPUNlT.PPFlLE. 

» Na.-*pcT.A(.P) 

T(jP?=,fFm*.3« TOTVT 3« ? 

IF t'lOFl II l.LF.Ol TO|-?=TnP) 

kPITF out saVFO THAimufi FIFLOS and test fiflds 
IF f «.lOPFfi U- ) SUTU POO 

p^fTi-r OUT S'ipFi-i/ISOk INFObhaTION 


C— 

C- 


IFdri.^'iPV .PU. 1 1 GO TO 

1F(P-PTPS ,F(j. ?I i.O To 

IF(Th-LStf~ .FU. 31 GO TO 


40 

■'ll 

AO 


c- 


c« 

Him 

c«- 

c« 


c* 

c* 

801 


TFsr FHP' FIShfK 
1 FCTo‘'S«Y.*-0.A) GU TO HO 

IiOThPS = 4 . 

80 ro'-Tl'-UE 

w-TTEC*.,,'lo) 


FOPMAnfs??YOl( have SELECTED THE FOLLOWING OPTIONS:* / ) 

CALL TAPLAfttHUfUT , HTAPfl 

"uM[T='-‘Ar-rAP 

"TAkL = 'UNIT 

WLirEfft.ftOl) HTAPF I MUNIT t NFILE 

FijMHATt Tin, 'Pkocess the classification hesults from HAPTAP ( 
* Aft, 1 >, unTT* , is, • , FILE* » IS ) 

IK t ,iiTnftS .FO, 4) wKTTF.Ia.mobi 
!F tT^'MS^y .kO. 1) wHITF 
IFIFJPIHS jFO. ?) MftITFl6,«0S) 

IF fT«HSVA ,F<}. 31 «PITF(0,R1 o» 

TEST FOP FISHES 
IFlTrtPSSY.FQ.A) wSITE(A,817) 


C- 
C- 

C- 
C* 

c* 
c« 
c* 
r* 

C«»» CODE ADOED NOV 13, 197b TO INCLUDE LIST PkOCESSING 
C» 

IF (lists».mi-.u) go to 


IF OOr DATA PPOCtSSIKG WAS PFUUESTEO, THE OOT DATA FILE, UNIT, 
AND TAO£ NU"*'FS WILL "^E PPIMTEO OUT 


C« 

c» 


c* 


c* 

c« 

c* 

c» 

ftl 

c» 


ftl 

IF r OOTKEY .LF. 0 1 GO TO Ml 
CALL rAPLl«fnoruNIT,OTAPFJ 
DTAPE = OOlU-lT 

IPAT = POTFIL ♦ 1 
»'rIT£t6,>lpS> DOTuNT,IPAT,DTAPE 

IF I TSnKEY .GT. 0 ) WRITE (F,B?6 ) 

DO J(OT PRINT FOhMaT STMT. BOG IF OOTKEY .6T.0 

CO-iriNllE 

IF (Twji<F.Y,EQ.l.ANO.OOTKFY.LF.a) f,KlTE (6,«06) 


TF 

[ 

TSTFEt 


1 

) 

KFITFC 0,8081 

IF 

{ 

STAKY 

• FO. 

1 

1 

WRITF(ft,fll()> 

IF 

1 

►'CFOKY 

.EO. 

1 

> 

wwnF(o,ai2) 


TF(N()''aP.Eu, 01 rfrti TF (G,n?.nl 
IF (FLr'^EY.riF.mwPlTdlbtSPl I 
lFfFlLTER.FO.il WOITE (ft, H??) 
IF(oeSi'£Y.FQ.llHRITF(ft,R?3) 

1 F (CftP'<’EY,FO . 1 ) V-R ITE { G , ftZm CROP 


SFT01S30 
SFT01S40 
SET01S50 
SFIOiShO 
SFTOISTO 
SETOISftO 
SFTOISOO 
SFTmftOD 
SFTlUftlO 
SF TOlbPO 
SET01G30 
SFTOlOAO 
— SFIOISSO 
SFTnlftftO 
SETOIGTQ 
SFTOIban 
SFTDlfiPO 
Sf T017U0 
SEI01710 
SfTol 720 
SET01730 
SET01740 
SH017SO 
St rm76ft 
SFTOl 77(1 
SFTOlTftO 
SET01790 
SFTOlhOD 
StTfllHlO 
SFTOlftPO 
SftTmH30 
SFTm«40 
SFTOIHSO 
SFTniHGO 
,sFTm=70 
SETOlftftQ 
s^TmHPo 
SFTOl voo 
SFTnioio 
SETOIOPO 
SETOl‘130 
St rmP40 
SFToiPsn 
SFTOnfiO 
SFT01970 
SFInlOhO 
SFTOl 990 
SFTOPOOO 
SFTOPOIO 
SFTOPOPU 
SFTOftnSO 
Sf TOP040 
SFTOPObO 
SFTOr'OGO 
SFTO-'OTO 
SF rOPOfll) 
SF ro?o9o 
SET02100 
SFTOPllO 
SFT0P120 
SFTOP130 
SFT0214O 
SFT021S0 
SETflPlftO 
SFTO2170 
SFT02180 
SFT0P19O 
SF.TflpPOO 
SETO??in 
SETOP??{i 
SFT0P230 
SFT0PP40 

SETO??50 

SET{I??60 

SFTOPP70 

SETO?2flO 


PAGE 0003 



W 6 LFVFL ?1 


bPTUPI 


D4TE = 7633H 


09/51/Sl 


PAGE 000« 


FTLP 


'll?* 

.H?=i 

P 1 ?<- 

OlPfi 
•VI PP 
0130 

n|31 

01 

0133 

on* 

otm 

n| 30 

0137 
m 3-> 

ono 

"loO 

olol 


01 *? 

01*3 

01 ** 

ni*S 

014^1 

0147 

01*A 

"149 

niso 


oisi 

01*3 5> 


01S3 

(no.* 
01 SG 
OlFfi 

ojs? 

f)i*;n 


0159 

0160 


c*** COOF APDEO MOV 13* 1970 TO INCLUDE LIST PKOCESSING 

^ IF (LISTSik. to, 0) GO TO 02 

V*mir 16,«?7) 

HoiTt {olotSl fiTUNTT«6TFrLe,A10NIT,AIFlLF*PPUNlT*PPFILC 
«PITK6,fl30) MAvitCT 


w>mF(6,631) ALP(l) lAl.Pl?) 


Fn>lM4T t *0 


LIST P<JijCtSSlMR OPTION StLFCTtO 


• 1 

AND 


SFT02290 
SFT02300 
5ET0231Q 
SFTn?3?0 
SFT02330 
SFTOP340 
SF1«?3S0 
SFIOP360 
Sf 10PJ70 
StT0?3fl0 
SFTOP390 
SFT03400 
SET0P410 
SFT0?*?0 
SFT02430 
StTO?**0 
SFTn?*50 
SFT0P460 
SET02470 
SET02480 


, 

H?8 f-OMPAtt///>SA.»'firi'-*riF.<S'0F’fcHOUN()‘Tt<ytH , AI, 

• fUSCHl'IlNATOP UNITS AMit FlLfs APf AS FOLLOWS «1 

t*9^ FO-1'VAT 1 //P f S A t O 1 ?X ¥ I S ) ) 

t30 FIwiiaT (///¥SX, 1 SFIFCTFI) r*TE(>OFV NAMF FOM list is JfA*! 

«3l format t///¥SX¥ • SIAS fOPDFcnON ALPNAS APE itSFlO.G) 

003 FLOP AT IT 1>\¥ « APPLY NO T'^^^Sr>0^ oil |N* ) 

Of)* FopSAT i T 1 Oi • APPLY CnI SoUApF TripPShOl OS* > 

Aoe F‘'’PATITlll¥»APPLY FMHtPIFAL UPEShOLPSO 
AOA fii--*aT [Tin, •OUTLIuF Thp TOainING F1HuS*> 

An* Fu-P4TlTn¥»0»TLlJjF THF TFST FIELDS') 

“lit FOFVATITlDt'PFIAT OUT ThF STATISTICS') 

S12 FUOmaTITIo, 'PRINT THF GiVOUNP TRIJTm PtPFOHrtANCF SUMMARIES RY FIELD ' SET02490 

* I SFTn?sno 

r- SEin?sio 

R17 FllPPAt ITlOi 'APPI.Y FISRFfi F-DISTRIAUTION TrtRFSHOLOS' ) . 5ET0P530 

FORMATtTllu 'APPLY USFR INPUT TURESHOLO VALUES') SFTn?S*0 

R19 Fo'MlAl I////) SETO<'SSO 

«?ft F(..PM„TITin.'00 NOT OISPLAY A CLASSIFICATION MAP') ^ _ SETOPSAO 

P?1 H/pvaT I Til' 'DISPLAY THF HISTOGRAMS OF THE OUADRATIC FORM FOR ALL SSFT02S70 
«UnfLASSF.S') SFTOPSAO 

“?? FOP-AATiriO.'PFRFORM SPATIAL FUTFpH'G') , SFT0PS90 

P?3 FO-HAmiOt'FXCLUOF PIXELS IN ThF. OfcSIGNATtO ARf AS FROM CLASSIFICaSFToPGCO 

«TION SIIMMuKlFS') SF102610 

R?4 FOr-MAKTliif 'PRINT ThF INTFNSIVE IfST SITE SUMMARY RFPORT FOR « tAO) SET02620 

B2S FU-paT mn¥ 'PRINT DOT DATA PERFORMANCE SOhMARIFS FOR DOT DATA FRDSEI02630 


C* 

C» 

C* 

C 


M F0HTPAN'UNIT'.l3f • .FILF MO. ''13» 'YTaPE tOP FIlF) •» A*) 
FORHATI T10» 'OUTLINE THF DOTS ON THE CLASSIFICATION MAP' I 
02 CONTIHOF 


C« 
H26 
C 


CALL RPTFLD (ARRAY (FL0SV2) 'ARRAY ( VERTX21 .NOFL02¥ 1 tCLSNAM»SUSNAM) 
IF INOFLD3.LE.O)GO TO flS 
IF (TST).EY.F0,1 ) IK=2 
IFIDESKFY.FO.I) IK=3 

CALL RPTFLO (ARRAY (FL0SY3) 'ARRAY (VERTX3) .N0FLO3*IKtCLSNA)*.SUBNAM) 
flS CONTINUE 

A comparison of category names from maptap ano podots will 8E 
PFPFORMEO if OOTKEY = 1 


C*«“ COOF aDOFO MOV 13.1978 TO INCLUOF LIST PROCESSING 
*" IF (LISTS 1.NF. ft) GO TO 87 


C* 

C* 

C* 

C* 

C» 

C* 

C* 

C* 

c« 

c* 


IF I nOTKLY ,LE. 0 .OR. DOTFHR .61. 0 ) <iO TO 86 

HAKE SPACE available IN ARRAY FOR OOT DATA INFORMATION. 
INCLU0IN(' 1000 scratch LOCATIONS FOR TEMPORARY STORAGE OF DOT 
OATA RETUPNEO from SOUR. RDOOTS. 

pove the TEST/DESIG ST()WA(.F ( TSTSAV'TSTFLD'TSTVER > TO OVERLAY 
THE INPUT ( MAPTAP ) TRAINING FIELD STORAGE . 


0161 

C* 

IF ( NOCAT .LF. 0 ) GO 

TO 108 

0162 

0163 

016* 

87 

COMTINUF 

NTSAV = FIFL03 - FL0SV3 
NTFLO S VERTX3 - FIEL03 


0165 

* 

NTVFH = T0TVT3 * 2 


0166 

0167 

0168 


NMftvE = NTSAV » NTFLO ♦ 
F*(OMaO = FL0SV3 
DO 90 I=1'NM0V£ 

NTWEH 


SF. 1026*0 
SFT0P6S0 
SFT02660 
SFT0P670 
SET026ft0 
SET02690 
SFI02700 
SET027IO 
StT(V2TZ0 
SFT0P730 
SET0?7*0 
SFT02750 
5F.TO?760 
SFI0P770 
SFTOP780 
SFT0P790 
SFTOP800 
5ET0PH10 
SFT0PH20 
SeTftPP30 
SETn?n*0 
SETftPflSO 
5£Tft?860 
Sei0?870 
sFToaato 
SFT0PP90 
SFTOP900 
SFT0P910 
SET0P920 
SET0P930 
SFT0?9*0 
SFI029SO 
SET0P960 
SE702970 
Sf 102980 
SET0P990 
SET03000 
SET03010 
SET03020 
SET03030 
SFT030AO 


rO ^ 



FORTRAN Itf e LEVEL 21 


SETUPS 


DATE = 78338 


09/53/51 


PAGE 0005 


FIIF SFTUP3 

01*^9 

0X70 

0X71 


0X7? 

0173 

0X7* 

0175 


01 7ft 
0177 
0175 
0179 
nit-O 
Ol*-l 
01 H? 
ni«i 
0X5* 
01H5 


nl«ft 

0109 

niHO 

019(1 

0191 

(<19? 

0193 

019* 

0195 


Pl9ft 

0197 

0199 


0199 

0^00 


9Q 


C* 

C* 

C« 


C 

c««* 


II = I 

AhRAVd) = ARRATlFROHAni 
FHOMAO 3 FLDSV3 ♦ 11 

PF5ET THE TEST/OESIG FIELDS STORAGE BASE ADDRESSES IN ARRAY 
FL0SV3 = 1 

FIFL03 = FL0SV3 ♦ NTSAV 
VFPTX3 = FTFL03 ♦ nTFLD 
TOPI = VERTK3 ♦ NTVFH 

CODE oODEO NOV 13,1978 TO INCLUDE LIST PROCESSING 
IF (I I5TS,I.EU.0I GO TO 88 
FlOSV? = TOPI 

-- 4 

5 

500 


C« 

c* 

c» 

c* 

c* 

C» , 

c*, 

c«; 


9 

c« 

c« 

c« 

c* 

c* 

c» 

r» 

c» 

c» 

c« 

r« , 

c« ’ 

c» . 

r* 


FIELO? = TOPI 
VFRTX? = TOPI 
TOP? = VEhfXZ 
NOFLu? = 209 
roTPFn = 209 
PrTI03 = T0P2 
RF torn 
CONTINUE 

5FT ThE HASF AOOkFSS IN ARRAY FOR THE DOT »TRA1NINS FIELDS* 
STORAGF ALLOW FOR A MAX. OF 2S0 00, TS 

BEGIN TVNSflU 

FLOSV? = fOPl 

BEGIN T^NFLO 

FlFLn?=KUi5V2 ■* 1000 

PFGIN TRnVFR 

VF->TX?= F[FU'2 * 1250 

BEGIN SCRATCH ARFa FOR DOTIA.NDOTSI 

TOP? 3 VERTX? ♦ 500 

OIFF = TOP - T0P2 

IF IOIFF.LT.inoO) GO TO 508 

TYPSWT = 2 

00 91 l^l.ft? 

DuTCATll) = BLANK 
CONTINUE 


TO PODOTS 


TYHSWT = ? 


RFFEIVFD FROM PDDOTS/DOTFILE I 


<11 nOTSIA.NOOTSt • PLACED IN ARBAYITOP?) TO ARRAY1T0P2* **N00TS-11 
tlTH DOTS (1.1) =5 amPLE mo. . D0TS12.I)=L1NE NO. , DOTS ( 3, I) =TYPE 
nOTSlA.IlaOOT rATEOORY NO. " „ 

1?) 517F5 = * , (3) TOTVT? = TOTAL NO. OF DOTS IN THE DOT FILE , 
<*» .nOCaT = NO. OF DOT CATEGORIES IN THE DOT FILE , 

AVO IS) OOTCATllI, .... OOTrATtNOCAT) = OOT CATEGORY NAHFS 


( OOTCAT IS EOUIVaLENCEO TO CAPDIll , .. 


CARD (621 


C<* f 

?;• 

c* 

r* 


c» 

c* 

r» 

c* 

c« 

c* 

r» 

r» 

c» 

c* 


5I7FS_= 0 

CALL PODOTS (ARRAY ITOP? I ,nUMHr* ZERO, TYPSWT»5I7FS,T0TVT2,NDCAT» 

» OOTC AT, DUMPY .dummy, nUMMY, DUMMY, DUMMY, dummy, dummy, OUH rtY, DUMMY, 

? DUMMY » ni/MMY 1 

TFST for THE MAX, NO, OF OOT5 

SET mC'FLO? = T0TVT2 = TOTAL NO. OF DOTS 

• IF ( TOTVT? ,GT. 250 1 
N0FID2 = T0TVT2 

STOvAGr ALLOCATION FOR THE DOT DATA INFORMATION 

TRNSAV(l.l) 3 ARRAY(FL05V2) 

TR'ii/EPIl.U = ARRAY (VFRTX21 
TRnFLD(1,I) = arrayIFIELO?) 

SUBROUTINE OTChK KILL COMPARE THE CATEGORY NAMES. IF EACH OOT 
Category NAt-r matches with a caTfgohy name from maptap, the dots 
rfILL pF OhOFPFO BY ASCENDING LINE NUMBER, AND ASCENDING SAMPLES 


GO TO 1091 


SET03050 
SET03060 
SET03070 
SFT030R0 
SET03090 
5ET03100 
SET03110 
SET031P0 
SET03130 
5ET031*0 
SET0U5O 
SFTO 1160 
SFT03170 
SET03180 
SFT0319U 
SET0X?00 
SET01?10 
SET0X220 
SFT03230 
SET01?*0 
5FT03PS0 
SET03260 
SFT03?70 
SETOiPBO 
SET03?90 
SFT01300 
SFT03310 
SFT0.1320 
SETOnSO 
SET033A0 
StT0 33S0 
SFTOlTftO 
SFT03370 
5FT03380 
SET03390 
SET03A00 
SFT03A10 
SFT03*?0 
SET03A30 
SfcTOlAAO 
SFT03450 
SETOXAftO 
5FT03470 
SET03480 
5ET03490 
.SETOXSOO 
SET03S10 
SET01520 
5FT03S30 
5FT(I3S40 
SFTdlSSO 
SET03S60 
SFT03S70 
SP'TOISAU 
SETOISyO 
Sf T03600 
SET01610 
SE 103620 
SET03630 
SFT01640 
SFT016S0 
SFTO IftftO 
SFT01670 
SFTOlftftO 
SF.( 03690 
SFTO (700 
SF.r0A710 
5ET0 (7?n 
SF.T03/30 
5FY03740 
5FT017S0 
SFT03760 
5fcT01770 
SET 03780 
SET03790 
SET03800 



FW7PAN tv ti LFWtL 21 


SETUPT 


OAtt = 783J8 


rtLP «rrUP3 


ti?01 


n?o? 

fl?03 

n?n* 


n?oA 

e?07 


flPOfi 

A?lft 
n?l J 

n?i2 

h?tl 
(IPI A 

't^in 

n?17 

A?m 

n^‘io 

n?PO 

r??l 

A??? 

n??3 

n??A 

n?PA 

n?27 

0?3A 

0??O 

0? to 

P?31 
0?1? 
ft?ll 
C7 t4 
0?3<5 
n’74 
0737 

oaiB 

0730 


0740 


t)?41 

.0242 


C» 

C® 

C» 

C* 

r® 

c® 

C® TO 
r® 
c» 
c® 
c® 
c® 
c» 
c» 
r® 
c® 
c® 
r® 
c« 


FOS E&CK LINE NtiMriER 

me DOTS tu ooTFue nffd to be classified ur cateoohv 


DTCm' : nnTS(4«T<D0TS» AT AOPAYITOP?) 


r® 

c® 


FC0« DTCHK I 

THnSaV t4tN00TS> .hEGf^NlNO AT ARRAY (FLOSV2) ^ 
VlTn T>-iSAVtl.I) = UNUSFO (SCRATCH AREA) > 

TRNSAVt?.!) s DOT CATFROPY (40. 

TROSAVO.I) a DOT tyre ( =I OR =? ) 
rpPSAV(A<II = I 

1HMVFH«?»"'nOTSI , BEGlMNiMG AT ARRAY (VEKTX2) 
WITH T-4tVF-i(] . [) = DOT SAHPLF WO. , 

Trf((VER{2.tJ = noT lire ^Q. 

FOurtNOr 


C® 

r® 

C»1 


|F( NIIFAT .LE. 0 I 
GO TO SOO 
84 C0RTI70E 


GO TO no 


c® 


WILL RCTA-i FIT IN ARRAY 
PCTS7 = NOFLD? 

HOIMFO = •(OFL02 
GO TO tOS 


NOT'->Ft.=NOFLl'>2 

lFnS?-'EY.F0.llN0TRFU=N0FL03 
PCTS^=^fl>TI•lF^«^OSOA? 

IF I PCTSI .IF. ( TOP-TOP?) ) GO TO lOfi 
C* «0VF TFST FIELD IRFO SO NO GAPS APF. IN ARRAY (IF STORAGE IS 
IF ITSTSFy.fD.O) GO-TO )0S 
C* “UST TtAlr.TNij Flfc'LO INFO BE hEPT IN CORE 
Jtn=FL0SV7-l 

IF(TP< r<FY.FO.I>IAn-TOPI-l 

lFri=FLDsV3-l 

4(F=4*4 OFLin 

TnF=ii 

99 00 101 1=1, LF 
101 ARRAYUAD*I>=AHHAY(IDn+l) 

IF(TI<'F.GT.O)GO to 102 

IA0=1 AD,nF 

IHD=riFL03-l 

NF=S»\‘IFLH3 

Tt“F=TrMe,i 

GO TO OP 

10? 1F(T1-‘F.F<1.?1G0 TU 103 
iai)«iad*nf 

IhtlrVEPTXl-l 

NF=T0TVT3«? 

Tmf=nME+i 
GO To 09 
103 rO*lTlM)E 
FLDSV3=T0Pl 

IF { TR'.AEY .FO. 0) FU)SV3=1 
- "L03 


FIFl.i)3=FLOSV3 * 4®N0FL03 
VE'4TX3=FtFLD3 ♦ 5«N0FL03 
TOR? = VERTX3 ♦ ?»T0TVT3 

IF < PCTS2 .GT. ( TOR-TOP?) ) GO TO SOB 

PCTIDl = T0P2 

SET UR FIELD ARRAY FOR TRAINING FIELDS 


C* - 
195 
C* 

106 
C* 

C« 

^ IF( DOTCRR ,0T. 0 ) RETURN 

*^107 TF(TSTKEV.eO.O.OR.TRNKEV.E«,lJGO TO 400 
401 CONTINUE 

C» 


09/ST/Sl 


SFTOJGIO 
SFT0Tfl20 
SFT03G30 
SFT0 3840 
SET03H50 
SFTmflSO 
SETO 1870 
SETO IBAO 
SPin 1090 
SFT0J900 
SET03910 
SFTO (920 
SeT0393n 
SETO 19A0 
SFTO 1<*SU 
SFr03960 
SETO 1970 
SFT039AO 
SET 1)3990 
SPTOAOOO 
SFT04(j10 
StTOA020 
SFT0-*03(I 
SFTOaOAO 
SFT090SO 
SFTOAOSO 
bETn4070 
SttOAOHO 
SET04090 
SFTOAlOQ 
SETOAIIO 
SFTO'iiaO 
Sf T04130 
SFTOA-UU 
SFTP41S0 
SFIOAIftO 
SFTO® 170 
NFEOFDSFT041AO 
SFT04190 
SEr04?l)0 
SFTO4710 
SFT04P70 

StT04?30 
SF 7 04740 
SET04PS0 
SFTfl4?bO 
SF7n4?T0 
SFT042R0 
SFT04790 
SFTO4300 
SFT04310 
SFT04321) 
StT04T30 
SET04340 
SfT04360 
SPT043fn 
SFtn4370 
SET043U0 
SE.T04 390 
SFT04400 
SE70A41Q 
set 04420 
SFT0®43« 
SFT04440 
SET044SO 
SE'T044tiO 
SFT04470 
St7nA460 
SET04490 
SET04S00 
SFT04S10 
SLT04520 
SET 04630 
SETn4540 
SeT045EO 
SET04560 


RAGE 0006 


P P 

J"r 1 

'■d O 

8| 



rn.^TBA'< !v (i LevfL 


SFTUfT 


DATE = 7H33H 




PAGE 0007 


?} 


rjl.F '=rTII‘’3 


AP43 

nS4« 

n?4<; 

P?«h 

0?4V- 

ft?4M 

pS<,<y 

n?t.o 

n?Sl 

05-5 

t'?t3 

n?n4 

OP'i'i 

<)7s7 

n?AO 

n?Ai 


0 ? 6 ? 

n?fi3 

A7F4 

OPflft 

nz^7 

n?hfl 

n?feO 

O?70 

n?71 

<l?7? 


0273 

0574 

057=, 

0576 


0577 

057B 

0576 

05^0 

n?«l 

050? 


r« 

C* 

C* 

r® 

c® 

c* 


310 

340 

360 

350 

500 

201 


6tT FLOKEr 

IF nOTKEt = l ,6E7KFY KiLl NOT HE CALLK) ANG 7hF PFSETTIhG OF THF 

Kfvs will takf place 

IF I lii.TKEr .(,T. 0 ) GO TO 201 
IFITSKEY.'F.IIGO TO 340 
FL'--'Ft'=I 

U) 310 l=I.'toFL03 

= HOSw3-l»3*(i-!)®4 
IF(«,»w«YI S).F.j.0)60 TO 320 
ai'll I'-iiF 
AO T<i 500 
E L 1 1' F Y = 1 

fiij 3-i'i ( = l,f.TjFLfi2 
AG = Fl iS/5-1 + 3*(I-I)«4 
IF (AtIPiVI i3I .EU.OJOO TO 320 
ro'iTIMIE 
AFTUPf 
FL’iPf Y=0 
TUw»r 

IillTKFY s MICAT 
FLOoFY = ') 
flF TDpr, 

fpoofi F0urT'“F3 


r 
c 

c — — 

r 

c 

SOB -tlTF I6«S(I44I niFF _ 

6044 Fd-^^iar (//YZ/GX, ♦**«**» DISPl 4Y/SFTUP3 - CORE 
1 r>Y»tI6,t — FXECUTION TFP61NATE0 *®*o*»»/lHl) 

C^l L CvFP-> 

104 pr>pMAT l///?/SX , •o®* Cl ASSIFIfATION «Y CATEGORY (ON MAPTAP ) IS 
I 4FOOTRFO If' ORPErt TO PkOCFSS TmF OdT DATA ®*®t f 5Xt i®*® OOT 
?PEOR«fMC£ Ali'AWARirS WILL NOT Ht OUTPUT »®®* //// > 

C» 

1.0 TO 112 
■C* 

C* 

C» 

1A41 »Ptre (A«iu4?) TOivT? 

C* 

104? FORMAT (////SX* I®®"* nSPLAV/nSPLY2 «»®® 

« ExCEE'lS ThF pax. ALLOyAHIE (?S0) • / bX 
«MAOl{.s 4fl.l iiOT BE PwOnilCFf) «®®®< /// ) 


SET04S70 
SFT04b80 
StT04S40 
SFTnAOOO 
SFT04610 
SFT0®6?0 
SFT04630 
4FTO®640 
4ET046bO 
4FTn4660 
SFT04670 
SE T046H0 
SFTO^hOO 
4F T0®700 
T04710 
SET04720 
SFT04730 
SFT0474Q 
SET047SO 
SFT0476I) 
SET04770 
SE rn47B0 
SET0®790 
SFT04H00 
SFT04A] 0 
SETOaRPO 
SFT04M30 
-SFT04A40 


FRROR PFTUk.i - .•'AX. NO. OF DOTS EXCEEDED 


NO. OF 

,■««»« 


C» 

c» 

no 

r® 

.ni 


r* 

c* 

c* 

112 


E OCAT 


60 TO 112 
w-!TE(a,111I 


FlH-Al I//////SX. *®»»» 
»i)hIFS cl||r, 

«l)Fli «»«•* f/f/tf » 


r® 
r® 

ra-ow®.-®.-® 
C® 

( ® 

C® 

r® . 

400 


rucTlMIE 
IP=1 
IPT = 1 

00 50 I=l.M0FLD2 
SA-'Sr» = lOOOOO 
sa®fno = II 


SFT04A40 
SET04660 
SET04470 

OVFRFLOW <TOP-TOP2) SfT04hfl0 
4FT04H40 
SETOAROO 
SFTOWin 
SFT04450 
PF4FT04430 
4H04440 
SET044S0 
St- 7 04460 
SFT04470 
SFr044B0 
SET 04 440 
Sf 104000 
SFT04010 

DOTS =»»16.« SFTObOPO 

DOT PEPFORhANCE SUMSKT0‘030 
SET0S040 
SFTObOSO 
SFT01060 

sftonoto 

se rn->(ifio 

SE T0bil40 

SFTUP3®® from nOTFILFf THE NO. OF DOT CATEPSFTOblOO 

OOT PF'?F0«MAUCF SUHrtAWIF? wIU. NOT HF PPOVTSFrOsl Id 

SFln-ilgo 
SFT0S130 
SEI0S140 
SE70-.150 
SFTOS160 
SFT0S170 
SFTOblBO 
SFTflblRO 
SFT06500 
SFT0W210 

a-»-®-a-®-4-»-a--®®SF r065?0 
SET0-.230 
SFT0b?4O 

TO find REFTANGULaR COOHOINTES FOR TRAINING FIFLDSETObPbO 

SE 1 0-4560 
SETflb?7» 
SFT0-.5P0 
SFT0S540 
SET0b30(l 
SFTOb310 
SKTOS3PO 


EnROR 111 OOTFILF - WESFT HOTKEY AND TRNKEY — - TURN ON DOTERR 

ODTKFY - 0 
IJMi«Fr=0 
Ol.TERP = l 
PE Tt/E"- 




INTERNAL ROUTlNt 



f-isrwdV Iv <1 LfVFt J1 


SFTUP 3 


PATt 


7H33K 


Oiy/ijl/Sl 


PASe 0008 


PRP <-FT>)PA 

•OSA 

ra* 4 

Vl?-A 

n?> ^ 

nA 47 
I Am m 
rp-f, 
ftpon 

‘'Pi? 

05 A 4 
n 5 -#A 

A?‘>A 
0’«7 
Ap,,M 
aPUm 
nion 
me. I 

OTOA 

0701 

nAfv 4 

miiA 

07ft«, 

OA 07 

nA.i-i 

0700 


07 H 


m?i 


07 ?? 

07?3 

07?A 

07 ?S 

m?fi 


• n*A 


SFTfl‘i730 
SFTOhSAO 
‘;eros 78 o 
SP.Tf)‘S780 
SFTO ‘-.370 
Sfc TflP>.7HI) 
7Fro->390 
SFTOSAOO 
SFTD'jAlO 

8 F 105430 
SFtOHAAO 
8 F 7 05080 
AFTtlHAhO 
SFT|) 5 A 70 
71)8480 
8F7fl544n 
SP705800 

SF 705810 
8 F 705520 
SF.708830 
SFT 05 S 40 
SFT05880 
SFTO 55 F .0 

SF 705870 
SF 705880 

8 eT 08 S 90 
SF 705800 

4 - 4 - 4 -. 0 — «-»— «- 0-4 — O— 4 -A -4 8 F 7 05 t> I 0 

sero 58 ?o 
8 FT 08870 
t 0 S 64 0 
SFTOStoSO 

p. 7 Fr)MiL -ni; 7 l 8 f TO CHFCK 7 h£ CA 7 £bOKr NAilES ANO TO OhfiEH THE nOT 8 SET 05 fifi 0 


I if,sr-> 3 joflooo 

I lOFH I = II 

F4 = FL08v?-1**4<I 

II) = A“ 8 I.Y{ 55 ) 

' S = FIEI )?-H 54 ( 1 - 1 I »8 
AP 8 AYI -S) = IPf 
|FT = 1 HT* <V“? 

H. = Im*i.V -1 

Pi> fclO J=T“.IF 

55 = vFnT <5 -l»l*l)-Il«? 

S« 'STf = 5 j.j.i( 54 "STH«AH 9 flY (NSl 1 
S 4 itP.'l = 5 A»((( 548 t'lP,»PHAY(N‘il 1 
r,F = vfk 7 <?- 1 »?»< 0 - 1 )»? 

Llr.ST-' = ')H ,0 <Ull'. 5 Trt» AHHAV ( 85 ) ) 
tu mM'= 4 m (0 II lr 4 Ff»l>. AP 8 AY 155 ) ) 
4)0 ri. 'f I ."F 

h£=FIFL'l?-l»l«(T-lt »8 
AmC-A DCh^) =1 (AST- 

I. 5 =FK 1 

(imM-AY ( ' 5 ) 31 fA'pl'i) 

( 1 S=F 1 FL )?-l» 7 «(I-l) 4 S 

A|‘"AY (55 ) = 8 * 48 Tm 

fi==FlM ' 12 -T* 4 «(I-!)«S 
Am 8 AY( I 5 l sSAI-FMI 
I-sIF^l 
20 ryi Tr IF 
IT'J TO 401 

c* 

c» 

f 

r» 

f o— 4— 4 

r* 

c» 
c» 
c« 


4~4 — 4 - 4 >^ 4 ‘-» — 4 — 4‘‘4 — 


r* 

r» 

c» 

C* 

r« 

r« 

c» 


IF THf CATFROhV HA^ES MATCH 
800 rOMTtF'JF 


Cd'iPilTATHiH TO Fioiiwf OUT HONI MANY LINES AHE NFFOFD TO WPtTE OUT 
THF 007 CiTFOOHy NAMFS AMD THE CATKHihY NAMES FHOM hAPTAP 

NCaT = fO. OF fLA 88 lFICAT! 0 N (HAPTAP) CATEGORIES 
NOCAT = '•HI, OF POT FILE CATEfiC'ftlfS 


8 FT 05670 
St Tn 58 fio 
8FT05540 
8FT05700 
5 FT 05710 
SFT 0 S 7 P 0 
SET057JO 
8 FT 05740 
Sk 70575 (l 
SFT 05780 
SET 05770 
SET 057 H 0 
SFT 0 S 790 
SF 7 058(10 
SFT 05810 
SFT 0 SH 20 
8 F T 05 H 30 
SET058AO 
8 FTOS 880 

Si;T058h(i 

SF Tfl 5 rt 70 
SF TOSPFfl 
SF 705890 
SFT 059 U 0 
SFT 0 S 91 O 
SfcinS920 

SF 705930 
8 FT 05940 
SFTOSMSO 

Sfcl(l59*« 

SFT05970 
SFT059MO 

9000 FU 8 KAT (//////////?X. lOOT FILF INFORMATION :* // 2 X.IN 0 . OOT CATEGOFSt 7 05990 
»tfS = 1 , In/ ?X, ITOTAL NO, OF POTS =i , 16 / ?** ‘DOT CATEGORY NAHFSFTflsonO 
*S S » // ( 14 A 9 I 1 8 F 705010 

SFT05020 

M 8 IIF( 6 .V 0011 SFT 06 O 30 

DO 205 H«=l,Nr/uTS SFT 05040 

5 S = T 0 P 2 -l»<Ffi-ll ®4 SFTOhOSO 

W 8 l 7 F( 5 , 9 ii 02 »HK, (aRkAY (NStK) «K = 1 » 4 ) SF 705060 

? 0 S continue , 8 FT 05 n 70 

r* SET 05 OP 0 


0711 


Ni)(iTb='iOFl 0? 

071? 


NCAT=N0CAT 

0717 


nOH-y 5 ( (H0rAT“7l /Il8) ♦ 1 

0714 


NPl IA( = ( tNrAT»7)/ll9) ♦ 1 



c» 

U8F TO-iSAV(l.I) AS scratch AREA 

571 

1*7 

C* 

DO SI 1 = 1.1 OOIS 

"7! 

1^ 


HS=FL'lSv2-l4l*(I-l)4A 

07] 

17 


Ai'-AYI'.Slsn 

07 

A 

SJ 

CO' 1 I'll IF 


c* 

r« 

r* 

CATEGORY 'lAPES CHECH 
OKAY = .TPUP, 

nr^r^ 

r« 

c* 

PRINT OUT DOT file INFORMATION 
WP I TE ( S ,9«n<) ) N()C A7 tMOOTS , ! OOTC AT 


t* 


r» 



•>0 

*OJ 


P05TM4N iv r- LFVFL 21 




IUT£ 


7B33fl 




Ftl^ sFT'ir** 
<-.T?7 


('■Jiu 

n3Tn 

mil 

<'111 

nl- 

011ft 


0117 

flllJ 

011 c 

o’ftn 

ni-*l 

Pl«? 

mil 
.n»4 
oi»*; 
r <4.f 
0147 

flil-i’ 

0145 

fli-Q 


01S1 

niftp 

Olftl 

flii» 

<>1*^5 

mcft 

01-.7 

OlftO 

t.1-,5 

ftlftO 


frift 1 

OK :j 
<11->1 

0 K 4 

niftq 

rilft*! 

01-7 

OlftO 

ol« 5 

0170 

01 71 
01 7? 

0171 
017<> 
01 7S 
(1177. 
0177 
m/B 
0175 
(|1“0 
nm 
om? 
03H3 
jL7“t5 


<1001 FOM’UT (//2x« »fi(tT 7<FCliHn :• // Tlo.moT NO,* « T?2«»‘77\Mt'Lt' t T3?t SFTooo50 

• foo. •lVt<F* , T45« >CaTM''U< 7Y' / T9, • — - — , T21 » SFTOhino 

— _t , 731, 1 . 7«(|, • • , T9F, • // SFTOlllO 


»> 

9(1(1? FOr-CAT (Tl?» I3»TZ3, lO.Tl?. f4,T‘(l,l?.T‘'ltll) 
9 = A 

fill MO I = J ,( firoT 
no 5?n jnl.A’roT 

IF UlOICAI (n .FO.CATNA '(3> )fiO TO II 
H?n ro-iT ift IF 

IF ( ft .Nh. fiOCAT ) OKAY = .FALFF. 
f'I( TO ?10l 


n 

r<* 

c« 

c» 

c» 


SFTTI'-fi T.HF IOhUFII pot rOTFOtOoy MIJVMFW To THF kaPTAP'S CATFCOPY 
NU .mF- TriiT ('Oh(wtsPOOit)s TO THF POT COTFGOHY NAMF 


f* 


00 Gis 7SFT=i,(oors 
Ob = T(lP?-1 ♦<i+|PSFT-l ) CA 
OFS = FLObV?-l» l» (HSF T-1 1 »A 
IF (0P50Y (lift) ,F.). 1 » aAkAYIhSMsJ 
Sl<5 ^0vTI^oF 
llfl ro'pll'-or 

no l<'n I=l,'v('OT3 
ns = FI ilSv?-lF I* < 1-1 > »A 
Ci'<'=AA-?AYC('S) 

IF ( r (<< .F.i, (I 1 t.o TO ino 
NS =: T(V?-1»A7(I-1)»4 
OSS = FLn<V?-l*lF<t-l»oA 
At.PAYl ■S>=APftAY(OSS> 
ro. iiiooF 


ino 

r» 

fo 

21fil 

r« 


UnUIN'l TnF -OK AAO mJn IToiF OOMhtWS 
IF (.'■i£JT.0F0Y)(;« to 1? 


M.-.I IN = AI-10Y(T<)P.d-l ♦?! 

««I To = A'J94Ya0PF-lF?l 

no lOno 9SFT = 1.'-1I)0TS 

ns c Tti?3,j*(qsFT-l ) *4 

!F (a 994Y(NS) .( T.«<ftLIM)9NLTN = A'7PAY(NS) 

!F (ApftiYd'S) .eT.MKLrrOVKLINsA^KAYdjS) 

inno ruftTP oe 

in > 0 <Ui>( .IF. n .Op. «(« in ,LF. 0 
« .0“. -IM in .(tT. -IXLIN I OKAY = . 

IF (.NOT.OKaYKvJ Tli S4<1 


FALSE. 


r« 

c» 

c® 

c« 

f» 


I A 
?9 


CPFTK TO SFF .'HAT Finn OF COPUFSPONOEOCE EXISTS SFTwFEN THt TWO 
SETS OF CATFuOrtY (<A’'FS 

i<(T=fl 

(F (ii.sji.I.roTI (,0 TO n 
ftp ITF (<j.l4) P 


SFTOftlPO 
SFTnol30 
SFTnAlAO 
SFTOMSO 
SFTQM60 
SFT0ftl70 
SFTOMBO 
SFTOftlPO 
SFTOftpno 
SFTOftEin 
SFT(lo??0 
SFTnftPiO 
SFT(ln?40 
SF TOA?bO 
SFT(lh?hO 
SFTOS270 
SFTflftiBd 
SFT0ft?9fl 
SFTOft 100 
SFTOftljn 
sFTni3?n 
stTOPiao 
SFTOftlAD 
SETOnBSn 
SFTOft3oO 
SFT0F17O 
SKTOAIRO 
SFTOftlSO 
SETOftAOl) 
SFTOftAlO 
SFT01A?O 
SFTOftAdO 
SFTOkIAO 
SFTOftASO 
SFTOlAfto 
Sf T0ft470 
SFTQftAHO 
stTO-APO 
SFTOSSOO 
StrOFSlO 
SFTnAs?n 
SFTOftSlO 
SFTOASAO 
SFTOftSSO 
SFIdhSOO 
SFT(lftS70 
SFTOftSflO 
SFTllftSOn 
SETdAftOO 
SETQ<'610 
SrTdiftpO 


F«p-'oT(////////////F/'//?('t'THFPF IS t,oa,* l»T COHPf SPUNOFNCt HFTPSf tOftftld 
»FFFi TnF CATFoOPY fiAHtS Fndvi POTF'ILE — ») 


?7 


?F 

10 


SB 


K = 1 
.= 17 

00 ?A T=l,MnLIN 
IF (.A.GT.NnrAT) F'=('l|)rAT 
JftlTF(A.?7l (nOTCATdYOl ,hn=K,Ml 
F0S7AT</IX,l7l3X,A4t) 

K = M* 1 
('=ft+l 7 
COM Tim IF 
ftPlTF (S,3d) 

F09“AT (/♦ A[qn Trtt CATESOPY NAHES FHOH rtftPTAP — 

R = 1 

M=17 

IX) ?ft Jil.c^FiLm 

IF (M.GT.NCAT) H=IYCAT 

WPITE (6,27) (CATfJAHINH) »NM=K,M) 

K=M«1 

M=H*ir 

CONTINUE 

IF (NT.EO.l) 60 TO 21 


M 


SET (iftAAd 
SFTd<i7ibO 
sttdftftAO 
SFldANTO 
SFTdftOfiO 
Sf TdF. 7,9(1 
SFTdft700 
SETOA710 
SFT0ft7?0 
SFT0S73O 
SFTdft7A0 
SFTOftTbO 
SFT01760 
SFT0ft770 
sEtoa/bo 
SFTnA790 
SFTdABOO 
SET06B10 
SFT0AH20 
SFT 07)830 
SFTOABAO 


PA6F 0009 



F>)c«r>JAN tv (J Lt-VH ,*t 


SFTUP-? 


r.ATt = Tfi33rt 


09/b3/Sl 


PAOE OOIO 


nJ 




PILP «PTtP3 




tr (►•T.e<i.?> GO TO IP 




SFT06HS0 



G*J TO ?1 




SFT0nfl60 

^11-7 

n 

“.nlTF (6.14J 4 




SET0MG70 

f>1CsM 


AT=t 




SFTOikftO 



Ri) 10 ?9 




SFT04P90 


r* 





SFT0M900 


c« 

OPOF-JIvG IRF nOT DATA 




SFinARin 


r» 





SETOoTgO 


?1 

rivTQ = 0 




SFT03930 

A10\ 


l;0 37 1 =w%LIN,MALIN 




SE T0d940 

O’^Cp 


’•■ = roTfi * 1 




SFT0h9S0 



DO Ir- lal.W'OTS 




AFT049fO 

nH-4 


. S=TlW7-l.?*{J-l)»4 




SFT0D970 



IF(AK-AY(nS),hf.URO TO 31 




RFT0P.9P0 



n Trf = c iT« ♦ 1 




■stTn.<9<»(> 

m 7 


',S = vF-»T<b-l«i>+ U,NTk-l)«? 




SFT07000 

^A“^oa 


A,/kAVt*iSl = ? 




SF ronno 



',<i = F| 0'.v?-t*A» (CNTk-l)*A 




SFTfl?n?(i 

ri4no 


AkKAY (‘.51 =1 




SFT0703O 



Ptb = VFkt '?-!♦! ♦(CMk-l»»? 




SFTn7040 



f.SR rOk?t(0-n«A 




SETO /OSO 

nAOl 


Ah,way(<S> = AOKSYtNSS) 




SFTn7n4ii 

a4fi4 


NS = FL0SY?»?+ (TNIP-I) »4 




SFT07070 

A^oS 


t/SS = TOP.?*?* < J-1 ) a* 




sf ro7iiM0 



Arv»AV('S 1 =AD9 aY (.\SS) 




5f.TO/'190 

A4A7 


Ns = FLi)Sv?*l ♦ {C'*T«-1 ) «A 




SFTn7ion 

n40ft 


.gSS = Ti>H/-l*4«(J-l)eA 




SFTO/nu 

0409 


A-^fAYH S) =A>'’«AY (kSS) 




SET071PO 

04 1 n 

3> 

rt;>' T IMiF 




SFTn7130 

0 41'! 

3? 

rOMTli'llE 




SFT07140 


C« 





SFTO/ISO 

041? 

37 

COMTtNDF 




sETonon 


C* 





SE 107170 

04n 


Gil TO »4 




SFTonftO 

0414 

1? 

.ktTF (6.2S) 




StT07190 

04|S 

^•^ 

FoiaAT Uh!//Sx«*»«« OOT OATA PFHFORMANCF SUmMASTFS 

WILL NOT BF 

SETO 7P00 



1 t'l-nilDrED - TdE FaTEGO-iy NamFS FkOM daPTAP ANO 

ilOTFILE 

00 NOT rt4TC5*-'Tf>??10 



?H*/,''(»«t,ATFGr(riY NAMES FPtlM OOTFU E APF -•> 




SET0 7PPO 

041<4 


pir=? 




S£r07?30 

0417 


60 TO ?■) 




SFT07P4O 


C“ 





SFT07PS0 

04lh 

■540 

1 W'DITFtS.ADMNL IN.MXLIN 




SFTnVphO 


C« 





SFT07P70 

4419 

A) 

FOO«ATt//////SX.*«aa* SFTIIP3/nTCHK - — FROM 

DOT FILE. 

TMF MIN. 

LISFTnyPfif) 



*NF NO. =«.Tfi»« .MAX. LINE N0.=»»Ift/ SX, •«»*** 

DOT 

PERFOPMANCF 

SUSET07P90 



»M«-AkIFS «ILt NOT HE PPODUfEO *«***• //////) 




SFT073nn 

04?0 


noTKFY = n 




SE.T07310 


C* 





SFT07320 

44?1 


TP‘)KFY=0 




SFT07330 

04?? 


OOTtRi'=l 




SETO 734(1 


C« 





SFTO 73bO 

04?-^ 


hO TO »-4 




SFT07360 

04?4 


FNO 




SFT07370 




E.3 SOFTWARE SUBPROGRAM NO. 3 CDSPLY2) 

Subprogram DSPLY2 performs the bulk of the summary information 
for the DISPLAY processor. It proceeds on a f ield~by-f ield 
basis, using MAPTAP machine classification information. It writes 
a formatted display map (Universal or LARSYS II) . , 

E.3.1 Linkages 

Subprogram DSPLY2 is called by the DISPLAY processor driver 
DSPLAY. It calls LISTSM, MAPHD, DESIG, PCT, FLDBOR, and PRTSUM, 
and EOD-LARSYS utility routines RWRITE, SETMRG, WRTHED, WRTLN, 
BNI4A1, RREAD. 

E.3.2 Interfaces 

DSPLY2 has included labeled common blocks /GLOBAL/ and /DISPL/. 


E.3. 3 

Inputs 



- 

Calling 

Sequence : 




Keyword 

Dimension 

In/Out 

Description 

TRNSAV 

(4, 

NOFLD2) 

In 

Generally, used for 
dot storage in PI 
runs, not used except' 
for extraction of 
machine classification 
information in LIST 
processing. 

TRNFLD 

(5, 

NOFLD2 ) 

In 


TRNVER 

(2, 

T0TVT2) 

In 


TSTSAV 

(4, 

N0FLD3) 

In 

In LIST processing DO/DU 
field information 
(otherwise, TEST or DO/DU 
field information) . 




TSTFLD 


(5, NOPLD3) 


In 



Keyword 

Dimension 

In/Out 

Description 

TSTVER 

(2, TOTVT3) 

In 


PCTAB 

(NOTRFD, 1) 

Out 

<> 

Subclass number of 
machine classification 
for 209 dots 

LISTSW 

1 

In 

For description of 
these LIST variables, 
see subsection E.2.3 

GTUNIT 

1 

In 


GTFILE 

1 

In 


AIUNIT 

1 

In 


AIFILE 

1 

In 


PPUNIT 

1 

In 


PPFILE 

1 

In 


NAMECT 

1 

In 


ALP 

2 

In 


E.3.4 

Outputs 




A Universal or LARSYS II formatted classification display map may 
be produced. 

E.3.5 Storage Requirements 
68206 

E.3.6 Description 

Subprogram DSPLY2 has been expanded to accomodate LIST processing. 

If LISTSW is on, an extraction is made of the machine classification 
results for the entire 209 dot grid. This extraction is done 
after modification of classification results by DO/DU input fields 
and/or thresholding^ both regular options of EOD-LARSYS, Machine 



classification results are stored in PCTAB. Within the 
major field loop, a call is made to LISTSM for CCIT 
report generation and proportion estimation using Type 2 
dots from any or all of ground truth, PPTC, and AI dot 
files . 

E.3.7 Flowchart 
N/A 

E . 3 . 8 Listing 


3 = 3 ^ 

/77 
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OSPLV? 


DATE = 7a33a 


09 / 57/49 


FILE nsPLY? 
0001 

one? 

0003 


non* 

0005 




0007 


OOOfl 

0009 

0010 
oon 


c 

c«»* 

f 

CT»***' 

ri — 

ri 

Cl 

Cl 

Cl 

Cl 

Cl 

C( 

Cl 

rr 

ci 

ri 

ri 

n 

ci 

CI 

r» 

C" 

c» 

c« 

c* 

c» 

ci 

ri 

C£ — 
CI — 
C 
C 


SURMOOTINE DSPLY?(TflNSAV.TKNFLD.TBNVEft«TSTSAV*TSTFLO* 
“TSTVr 0 .PCTA«,LI 5 t 5 WtGIUPirT.GTFILF. AIIINIT.AIFILE. 
«P?UN 1 T*PfFILF«NAP'ECT.ALP) 

implicit IMTEGFB(A- 2 ) 

code AHOtlJ NOV 13,1973 TO INCLUnE LIST PHOCESSING 
HEAL »LP( 2 ) 


DSPI YA Can PFHFOkM SPATIAL FILTERING ON IRF CLASSIFIED DATA. 
n.F. - THE FOUR nFaPEST iIEIRKHOKS OF tACR PIXFL ARE 

TESTFO FOP tSA-tFNFSS*. IF THF FOUR NFIhHHOKS ARE 


rLASMFIFD AS ONF 
WAS C( ASSlFieO A= 

IS CHANGED TO THE 
FXAPPIE: 

LINE N ~ C 

N *1 - CXC 

N,? - C 


TYPF, AMO THE PIxFt IN HDbSTION 
A OIFFERFNT TYPf. TmF. CLASSIFICATION 
SAhE as the NEIGHBORS.) 


- X IS CHANGED TO C 


DSPLY? ALSO PERFORMS THRFSHni DING, PRINTS THE CLASSIFICATION 
HAP, and calls The APPPOPIATF ROUTI'lES TO dUlLD ANO THEN PRINT 
The classification PEOFORMANCt TABLES. 

TrtF DOT DATA PEHFORHANCE SU^RARIFS ARE PROVIDED FROM THE INTERNAL 
SUftROUTlHE.nOTSOrt 

list processing added NOV 13 , 197 fl LISTSW IS THE 
NAME OF IMF S/IITCM 


C»END 


REAL CON 

niRENSION TPNSAV(4,N0FL02) ,TRNFLr>IS.N0FLD21 .TRNVFP (2, T0TVT2) 

<* ,TSTSAV(4,N0FLD3) ,TSTFU)(S.N0FLD3) ,TSTVERI2,T0TVT3) 

<• .COLO.nO) ,SCRATn30) ,FLDIMF(6) 

« ,IR<1000,3) ,VR(1000),Olir(10no) ,ILlNE(3) ,flUF( 110,20) 

« ,JSTAT(20) ,PCTAHINnTRF[),M0SUH3) 

?, CLTOTIGI) , 00TLHUM.2).Pll,VC(nl) 

3 , LAhCLSIAD.XI), LfiLTOTtfil), TOTLHLI60), PC0RR(61) , 

4 ALPHA(hO,40), TOTThRIAO) ,OOT0«rK61 ,2) 

INCLIJOF CKHKIO.LIST 

IPCLIIOF COMRhA 

C0Mmo(.’/GL0R4L/HFA(H03) ,PAPTAP,OATaPF ,SAVTAP,HMFILF,BMKEY, 

« HISFlL.HtSKFY.TRFORM.FRlPTP.FRPKEY.MAPUNT.NOFILEi 

9 ()RllMA0,nRP/,i>S,PAGSI7,riATFIL,STAFILf ASaV.ASAVFL 

» ,NHSTim,NwSTFI,SrTRil'J,MAPFlL 

0 .OOTOHT.DOTFIL.NrHPAS.TRNSFL.HMTRFL.MlSTFL.PCHUNT, 

» CROIiNT.prtunT.PanDIO 

COMHON/OISPl /CaTFlG.CATNAM (Al > .CLSNAMI A1 ) .SDBNAMAI ) .SUf)NO(60) , 

* SHHCAT(hO) .CLSStiHIXO) .NOMAP. IOTVT I.NOSUHT, 

* PCFnAY.TSTGFY,TRNt<fY,THRS«Y,STATKY,fcMP7HS,ThHSVA. 

* PLT«tY,H“FLG,HMrOMR,HMFF AT.rOATF (?) , 

* FLOSV?,F !FU)?,vfcMTX2,FLDSV3,FIfLn3,VFRTX3,PCTID3, 

« THRFSIGO) ,SY )hTX(F 4) ,HiGH(GO) »CON(hO) 

* ,FLnAFY,WOFl O2,NOFLO3,M)FFT?,FFTVC?I30) 

* ,NObUH?,fiOTRFD,T<)TVTP,NOCLS? 

» ,KATNO(fini , NOCAT, FILTER, marFMT 

* ,OeSAEY,OFSDNI.f)ESOTH,cwOP , aCROP.AOThER, ATOTAL 

* - , SITEI6), ANALYSIS) ,CArt( IS), CKRKEY,hEPPTS(60) 

,OOTAFY,i)OT£RR 

LOGICAL START. FULL 
Data asT/*«»»«</ 

DATA THR£SH/»TrtflF«/, BLANK/' »/ 

EOOIVALENCE (FLOINFU), LINSTR), IFLlUNF (2 ) ,LI NEMD) , 

1 (FL(IINFI3),LINIHC) , (FLD1NK4), SAMSTR) , 

? (FLDINFIS) .SAMENO) , (FLDINF(6) .SAMlNC) , 

3 (COL.SCRAT) , ( IR.HUF) 

*"FOLLOwiNG"EOuTvALENcin’ARPAYS*WTLL~ON^ ACCESSFo”7n"TnTERNAl’ 


DSPonoin 

OSP00020 

OSP00030 

OSP00040 

OSPOllOSO 

DSP00060 

OSP00070 

DSPOOOfiO 

inspoooso 

lOSPOOlOO 

inspoDi 10 

DSPOKlPO 

DSP0O130 

DSP00140 

Dsponiso 

nsPnoiGo 

OSP00170 

OSROOlflO 

DSPOni90 

nSR0il200 

DSP00210 

DSPOiJPPO 

PsPnn?3o 

OSPOOP40 

PSP0<>?50 

nspoopAo 

t)5P0')?70 

ospoiipflo 

DSP00290 
DSPOII300 
OSPOlt310 
DSP oil 120 
TDSP00330 
IDSP00340 
TDSP00350 
nspodjGO 
OSPOtlTTO 
DSPfl03fi0 
DSPOK3WO 
ospnoAoo 
DSP00410 
DSP004P0 
OSP00430 
DSH0O440 
DSP00450 
OSPOOAhO 
DSP00470 
f)spno480 
OSR0U490 
DSPOOSOQ 

nsponsio 

DSPO(iS 20 

osponsso 

DSPOnS 40 

nspnnsso 

DSPOOSGO 

DSP00S7Q 

nspoiiSHO 

DSP00S90 
DSPnilAOO 
OSPOliAlO 
PSPOOAPO 
DSP00430 
DSP0IRS40 
DSPflflASO 
DSP00460 
OSP0yA70 
OSROIISPO 
DSPOOG90 
DSP00700 
DSP 1)0710 
PSP00720 
OSP0OT30 
DSP00740 
-OSPOOT50 
DSP0(i76O 


PAGE 0001 




Pn.?T‘5A»^ !v r, LPvet ?1 


OSPLY? 


DATE = 7B13ft 


09/S7/49 


PAGE 0003 


•sj 


PttF • «PI VP 

AOfP 


0013 

0014 


001 = 


noi^ 

0017 


OOlfs 
Of)l <3 

no?o 


OOPl 

OOp? 

O0«?1 

00?4 


O0P« 

OO?^ 


00?7 

POpo 

ft0?9 


0030 


0031 

003? 

0033 

0034 

00 

no \h 

0037 

003S- 

00^0 

OO 1.0 

0041 

004? 

OO 43 

AO 44 

0046 

0047 
no4A 


0049 

00^0 


SUHWOUTINe ootswh 

fOlUVAlENCF (CLTOr f I ) .Il>n *I ) 1 • (PUNCH I t lH( 6 ?i 1 ) » . 
eifOTL-iLaiU »IPU 24 »m* 

« ( Prowui < {H(246.u ) 

<* ( If'TTH«(l> ^ JHlS'iTtn 

* ( nOTlixfin*!) ♦ IkliArt.l 

PEAL A|,Prtft,pfOFlP.PtlNC 
OIPFNAION F 1 TI («*)» ,F'*T/'(?A 
OHA F-'T 1/ • <T“i • * • ‘.'A 

o • 1,14 — 

» t — .7>.IX)) •/ 

lUTA F«T?/» (T?.», • *. <4 

« I IHK I , iSU'<C< < >n • F* • Ml 


. ( TOTLhLUI t IR(3n7.1) I * 

J . { LHLfOTU) t IH(427.l» » 

) ) 

> ,FMT3(«> tFMT4(H( tFMTBiq) ,TFMP(<i 
• f • ( hhC* t* ATEb* « •OPY* •* ‘P^XI • » 

_i , I — __t ,i ■ 1« t — , 


3) 


l/T 


C« 

C* 

r» 


c» 
r* 
( » 


* > I / » . * a • • I • 

DATA F'f 3/' (T-*u* a • a *a*3 
I'ArA ► >IT4/» (/T2* a *4a 'a'li 
DATA FI' T5/' (//T» 1 *«a *a'4 

» t4> > ) 1 / 

DI -leNAIiifa oUAfanSC*) 

IjATA -<I,4NaS/* *a* '*• 

laFAL PCCaPCTFiTaPlxTOT 


t'(? 6 f 1 'a*LAnei,iUFn *a' CLA'a 

a i?a ' a»4 > a • (7rt-* a a 

, I 1 , 1 — , 7 a , IX) ) a/ 

a'(lM('a'aF7.*.l3alH'at),4X*a 

aMlfl('a'aFF.*i<3ilH*t')a4A'a 

al(lH(»a'aI3a*l'lMtl'f'I3aI*a 


• a • 


•/ 


nl'-ENSION F')PPAT(3a2> 

0«TA HlKrAT/MJNIV'a'ERSA* a*l 

pFM totals (^A■| a VRaTMUFS 

RiMFHMtM TTOL(fiA) 


•a'LARS'a'YS I*>'I 


•/ 


!-< iNO= lOblJBT*! 

ISTSO= iOSUMl *7 

stT pointers For syhrols array ano totals array 

OilPNfl = W0SUA3»3 
nfSUNt= NOSUHlaA 
OeSOTHi NOSUilaS 

FI AG USED IN DOTPCT TO INITIALIZE PCTAB=0 
PCTFEY=0 


C 

c»«<a CoOE AOOEO NOV 13»1779 TO INCLUDE LIST PROCESSING 
C 

HLOCNT = 0 

IF (LISTSR.EO.O) GO TO 17 

fi'1 lb I = I a 209 

Li = (1 - 1)/19 

LR = (LR ♦ 1)»1(1 

LS 3 (i R - I)/l0 

I S = I0«(I - <LS»19) I 


T«v|VFP(1,n 
TSfiVFR(?a I ) 
IG COnTINUF 

GM TO 20 
17 rovTiNUF 

IF I DOIKEy .GT. 
no 10 i = ia'insiiP 3 
no 10 J=laNOIPFO 
10 PCTAril la f ) =0 


= LS 
LR 


.OR. OOTERR .GT. D ) GO TO 11 


C» 

r« 

I 

c» 

r* 

c* 

i 

c» 


GO TO 70 

11 IF( nOTEHR .GT. 0 ) GO TO 20 
initialize TfiNSAV FOR OUTLINING DOTS IN SUBR, FLDROH 

no I? I= 1 .N 0 FL 02 

12 TRNSAV(A*IJ = 2 


OSP0O77O 
nSPOOTGO 
OSP00790 
DSPOOmOO 

ospnofti 0 
nsPon«?o 
nspoi.aso 

OSPOOS40 
•/T2.*tOSPfl<>GSi) 

1 .r.bPdwfiGO 

OSPdOriTO 

'Ssifmosphorho 

• — >?• f|iSP(lf'A90 

osponvflo 
•)/) •/nspflORio 

• )i «/ospfu'9?n 

•HI a?' aOSPOOvaO 
nspflORAO 
OSPOOySO 
OSP(U.9GO 
nSR0('R7O 
- — « — nspotiORO 
fiSROOOOO 

pspniooo 

— nspflioiu 

OSR(Iin20 
OSP01030 
osp (11040 

OSPIU050 
OSPfllRGO 
nsPoioTu 
osjPoi n«(i 
nspfliooo 

(ispoi 100 

fibPoi no 

USP0H2O 
nsRomo 
fjspfli 140 
nSROI ISO 
ilsPOllGO 
OSPOl 170 

ost-onao 

OSPBl 190 
I'SPoiano 
0SP012IO 
OSP01220 
DSP01230 
0SRC1240 
OSPflIESO 
OSPfllPAO 
l)SP(M?70 
nspoipao 
DSP(H2O0 
nsRonoo 
obponio 
OSPOI 120 
fispfliaao 
fiSPOJ 340 
OSHOISSO 
DSROl 300 

nspfll 370 

fiSPfli3ao 

nspo) 390 

flSPOlAOO 
OSPfll 410 
PSPfll420 
DSPfl!43f) 
riSP0!44 0 
nspfli45o 
OSP014GO 
05P01470 
OSP014HO 
ti‘>Pfll490 
OSPOISOO 
DSROibJO 
OSP01520 
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nSPLY? 


OPTE = 7e33fi 


09/b7/49 


PAGE 0003 


FILf ' SPI Y? 


Pf'iNT OUT HFA05NG 


?0 Pr An(MAPrAP)FLntNF.PTS,LlNt‘;.FLOESC 
IF {PTS .67. lOtWH kRITFIftf??) 

IF tPT<; .67. lOOO) STOP , . . 

?? F<i&w*T(« OIcPLflY n'lUL ACCEPT ONLY lOOO PTS/SCAN LINfit) 
lSTrvT=9A-'STP 
I£Nn=9tHFNn 

IF tPIS.HO.ni 60 TO 310 
-i)9Ff = I 

I=I»l)ESr)TH 
TTOL[n =0 
2S TOTALSdlsO.O 


pPlNT OUT THF column NllMMFft9 


30 J = 0 
CM L 

Ih (NO'*AP.tn.0)60 TO flS 
► OTFOrl 
00 TO 370 
I F«TF6=1 

Oil TO ‘^10 
flS rOtlTlMiE 
6MKNT=0 
Ci)UriTK = 0 
nrV|lMl.N = 0 
LAST=0 

STArtT = .FAL«;F. 

FULL =.FALSF. 

n=i 

I^*=? 

13=3 

J=I 

AfiKFS=nOU <AD 

91 pPAn(MiPTAP) ILINE U> . tIRdf J) .I = l’fPT<;) » (VR(I) .I = 1.PTS1 
IMUINECJ) .FO.nlGO TO lOS 


DSPoiGao 
nspoiSAo 
nspol'iGO 
nsPoisGO 
-DSP01S70 
DSPOlhBO 
OSP01‘>90 
OSP01600 
ObPOlAlt) 
OSP01620 
DSPOIASO 
nsPoiOAO 
03P01650 
nsPoiAAo 
DSP0I670 
OSPOIbHU 
rspoit.90 
OSPOl 700 
OSP01710 
-nspoiTPo 
Dsonwao 
nspowAO 
nSP01750 
PSP017A0 
r>SPni77n 
OSPOl 7R0 
0SP01790 
DSPtllAOO 
fispoidin 
l>SPOI620 
OSPOl 030 
nsPoiBAo 
OSPOl 050 
OSPOl A60 
DSP01S70 
OSPOlflBO 
DSPO I 090 
OSP01900 

nspoisio 
OSP01920 
OSPOl 930 
OSP01940 


OSP01950 

IF OFSIGnaTFO fields HAVE HFEN INPUT* SET THE IH ARRAY FOR PIXELS OSPOlOftO 


I.M THOSF FIFLDS. 


OSPOl 970 


IFIOESKCY.FQ. 1 (CALL OFSiedLINE (J) • IRd.J) <TSTSAV»TSTFLD*TSTVER» OSPO 19fiO 


A NOFLD3.SAMSTH,SAMFN()»SaMINC) nspnl990 

on 100 1 = 1 . PTS nspopfloo 

L = IPd.Jt USPOPOlO 

IF (L.F9.i))60 TO ion nspopnpo 

IF(L.f7.iM0SU93)60 TO 9? OSPOP030 

IF (L.PT.NUSUm3)S0 to 9S OSPOPOAO 

OSPOPO50 

TpFSHOIDInR nSPOPOAO 

OSP0PO70 

THF VALUE OF ThF UUADRATIC FORM MUST Bf. EXTRACTED FROM VR FOR THPFOSPOPOHO 

OSPOP090 

0 = -2*VH - CON OSPO-flOO 


IFITMHSKY.FO.OIGO TO 9S 

lFd-?.«VHd»-CONlL) ) .LT. THRESILDGO TO 95 
9? continue 

TTOL = TOTAL PIXELS THRESMOLDEO, BY SUBCLASS 

TTOLILI = TTOL (LI ♦ I 
IPd.J) = N0SUB3 
L = NO sun 3 

totals = TOTAL NO. PIXFLS CLASSIFIED INTO EACH SUBCLASS. 
INCLUOING ThkFSHOLOFO ANO OFSI&NATED OTmFK • DESIGNATED UNIDFNT 


9S TOTALS (U 
100 CONTINUE 


TOTALS IL> * 1 
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0SPLY2 


date = 76339 


09/57/49 


PAGE 0004 


FIL®' f'^PLY? 


ttntT 

finoft 

009Q 

nion 

nidi 


OldZ 

nid3 

nidft 
nil's 
"Ids 
ni 07 
ninq 
0109 


n 11 ■) 
nn 1 
"UP 

0113 

0114 
01 1=. 
0114 
0117 


m M 

0119 

oi?n 

nl?l 


01?? 

nr?3 

01?* 

0 125 
01?h 
01?7 
0120 
Olpo 

ono 

0131 

01 3? 

0133 

0134 


01 35 

0136 

0137 
0I3A 

0139 

01*0 

014] 

014 ? 


C« 

r* 


r* 

c« 

c* 


105 

106 


no 

c* 

c* 

c» 

c 

c*** 

c 

115 


H»VF 3 LINF5 BEEN HEAD 

IPCSTAPTIGO TO 106 
J=J*1 

If (J.I.T.31G0 TO 91 
S14BT = .TriUf . 

GO TO 91 

spatial filteoing 
IF iFii teh.fq.oigo to us 

l = ? 

lMI-Kl-1 .I?l .nF. IHUtl.I?)) GOTO 110 

iMiPfitU) .Of. iR(ni3)) GOTO nn 

IMMU.m .Nf. IKU-l.I?!) GOTO 110 

ifiiPiui?) .f 3. mn.iinGo TO no 
iFirPir.ni .fo. uosuhtjgo to no 

irr=iKU» 1 1 1 
Ko = l9l[.I?l 

If UC4.FO.!insUB3)O0 to 110 
totals (ICC) =TOTAl Sliccm 

TliTAUSdCoisTOTALSdCKi-l 

SPkNTsSPK-VT*! 

isd.i?) = iwdUl) 

( = !♦] 

IFd,LF.PTS-l)GO TO lOft 
C'FT pFPFOkMANCF FOh LINE II 

CODE Af'OED MOV 13.1970 TO IMCUJDE LIST PROCESSING 


116 

C« 

c* 

C“ 


4? 


41 


C* 

0“ 

C« 

c» 

43 

40 


114 


IF (LISTSw.NE.O) GO- TO 116 
If lOOTEHR.FO.U 00 TO 114 
IF lOOTKEY.EO.O) 60 TO 40 
COgTIMIE 

TF5T TO SEE IF THE CURRENT LINE CONTAINS ANY DOTS 

IF dLINEdl).6T.TRNV£R12,N0FC02) ) GO TO 114 

RC.VT = 0 

ECNT = 0 

Do 41 I=l.V0fL02 

IF (ILlNf dU.HF..TftNVFR[2,in GO TO 42 
Ir (sCNT.en.O) PCNT = I 
GO TO 41 

If (-iC'iI.rO.O) GO TO 41 
FC4T s I-l 
GO TO 43 
COKiTIN'IF 

If lILINfdll.NF.TRNVERta.NOFLDan GO TO 114 
FCNT = NOFLD2 

FO.< DOT DATA P-TOCESSING. CALL THF INTFRNaL SUBROUTINE OOTPCT TO 
HUILO The CLASSIFICATION PFRFORMaNCF TABLE (PCTAhl 

If”iTSTAF?.EO.O)CALL PCTdLINFini.IRd.Ill .IWNfLO.TRNVER. 

» TPwSAV.PCTAil.NOFLUa.SAMSTR.SAMEND.SAMINCI 

IFITSIKEY.FO.UCALL PCT (IL INF d 1 ) . I« d . 1 1 1 . TSTFLO.TSTVER. 

» TSTSAV.PCTAh.N0FLO3.SAHSTR.SAMFND»SAMINCI 

IF (NOBAP.FO.O) GO TO 13S 


C« 

r 

c«*» COUE ADDED NOV 13.1976 TO INCLUDE LIST PROCESSING 
C 

IF (LISTS9.NF.0I GO TO 117 
IF lUOTFHR.GT .0) GO TO 117 


r« 

r« 

C* 

c* 


OOTLINF training AND/OR TEST FIELUS 

IF ITRNKEY.FO, 1 ) CALL FLOROR (TPNNO. ILINE ( 1 1 1 * IR ( 1 . 1 1 1 .N0FLO2. 
» TflNFLf>.THNSAV.THNVEH.N0SUH3.SA6STR*SANEND» 

» SAMINC.LININCI 

1F(TSTKEY.F0.1)CALL FL(1H0R( TSTNO. ILINE (II I .!»(!, Ill, N0FL03. 


0SP0??90 

nspo?3no 

DSP02310 

OSPO2320 

OSR0P330 
DSPO/340 
OSPOP360 
PSP 0/360 
DSPO/370 
nSP02360 
OSP0P390 
(ISPO/400 
nspo?4io 
OSPO/420 
PSP 0/4 30 
PSP02440 
DSPO/ASO 
OSPO/460 
OSP0P470 
OSP 02460 
OSPO/490 
nspopsoo 
PSPOPSIO 
OSP02S2O 
[)5P0?S3(l 
PSPOPSaO 
PSPOP5SO 
0SPn/S60 
DSP0/S7O 
nspo/sso 
DSP0?S90 
DSPO/600 
DSP02610 
nSP(1?620 
DSP02630 
OSPO/640 
PSP0P6SQ 
OSPO/660 
05P02670 
DSPn/660 
DSPO/690 
nspo?7oo 
ospoprio 
OSPO?720 
OSPO/730 
PSPO?740 
PSP027S0 
DSP0P760 
OSP0P770 
()SPO/7RO 
OSPD?790 
PSP02A0O 
PSPOPHIO 
OSPI12A20 
DSP0/rt3(l 
DSP0/A40 
OSPO/HSO 
PSP0PB60 
DSP0/H7II 
nSPOPRHO 
DSPn?A90 
OSPOP900 
PSP02910 
OSPOP9PO 
DSP0P930 
PSP0P940 
fiSP0?9S0 
nSPD/Rftfl 

nspo/970 
nSP02980 
DSP02990 
DSP03000 
OSP03010 
OSP03020 
DSP03030 
DSPO 1040 



FOftTffA'J IV b LEVet 
FILE f-SPLY? 


?1 


0SPLY2 


DATE = 7833fl 


Oq/ST/*** 


01*3 

nl<»4 

AlAA 
Oldh 
ni*7 
01 aA 


niAP 
01 An 
01 = 1 
ni K? 
01=3 
01 =<, 
01 SA 
O! AS 
01 = 7 
nisa 
ntiQ 


OlA^ 

OlAl 


016? 

0163 

0164 
016A 
"166 
0167 
0166 


016<J 

0170 

0171 
017? 

nm 


0174 

OITA 

0176 

0177 
017H 


017<» 

0160 

0101 

ni«2 

0163 


01m4 

OlflA 

OlHft 


* TSTFLD.TSTSAV,TSTVER.N0SIJH3«SAHSTB»SAMEN0* 

* SArtINC>LININC) 

C* SFT UP SYHhOLS for THIS LIImE. FIRST MAKE SURE I/O FROM LAST LINE 
r* IS COMPLFTFD. 

117 CONTINUE 

OU 1?0 1=1. PTS 
L = iPit.ni 
IF (L.FQ,n>riUTtl)=HL4NK 
IFIL.MF.OlOUTmsSYHHTKlL) 

1?0 CONTINUE 
C* 

c* »6iTE fikst 110 Samples on line printer and the rest on drum 

c* 

1hTS=HTS 

IFUPIS.oT.llO) IPTSsllU 
IFIPTS.lF. 1 lOliJO TO 126 
IPO=PTS-lin 
IFfFULUOU TO 126 

CALL «.R I TF 1 ADPES.OUT ( 1 1 1 1 . IPO .LSTAT 1 
^nPFA^*^^rf^6♦IP|) 

n-'IIMLA'=OHUM| N*l 

IFIokhFSHPD .L£. DRUMAO.DRMhOSIOO to 125 

foll=.truf . 

1?6 66fTF(6,?401RINEail.<OUT(I>.l=l.IPTS> 

C* 

C* 

C« 

135 


f* 

C* 

C* 

c* 

c* 

c* 

1S5 


IS CLASSIFTCaTION map to PE OUTPUT IN UNIVERSAL OR LARSYS 
FOH^’AT 

IF IMAPFMT .LF. 0) 60 10 200 

CnECK TO SEF IF LAST VRITE IS COMPLETED 

60 TO (1S5.160). HOREC 

►RITE HEADER RECORD 

NC = 1 
LhFS = 0 
FrAT = 1 
LSTLIN = 0 
HOKFC = 2 


C* 

C* 

C* 

160 


NOFILF = NOFILF ♦ 1 
CALL VRTHEOINC.FEAT, 

NRTTE data record 


PTS.MAPFMT.MAPUNTI 


C» 

C* 

C* 


LNFS = LNES ♦ I 
IF <L«FS .EO. LINES! LSTLIN 
TALL ARTLNdPU. 11) .LSTLIN! 
200 rOlIINUF 

IFULINE(I3).E0.0100 TO 201 


*1 


C* 

C* 

C* 

C* 


C* 

c* 

c« 


SET INDICFS and GO READ NEXT LINE 

j=n 
11 = 12 
12=13 
I3=J 

GO TO 91 

LAST LINE IN This FIELD HAS BEEN READ. 

ahe printed. 

201 LAST=LAST+1 

IF (LAST. £0.2) GO TO 203 
11 = 12 
12=13 
60 TO 115 

NOO FINISH PRINTING MAP FOR THIS FIELD. 


HAKE SURF LAST 2 LINES 


?03 CONTI NHF. 

IF (MAPFHT .GT. 0) WRlTf (6.??00>NOFILE.FLOESCt(FORMAT(I.MAPFHTl« 

* i = l.3>.lMFS 

??00 FORMAT (///TSSt ‘FILE NO. - * . 16. /T65. 'FIELD NAME - •• AA»/ 

• TS6. 'FORMAT - '.3A4./TSS«'N0. RECOHUS - '*161 


OSP03050 
DSP03050 
05P03070 
OSP030RO 
OSP03090 
OSP03100 
0SP031I0 
DSP03120 
nspr>3i30 
nsPoiiAO 
OSPO3160 
OSP03160 
O6PO3I70 
nspo J 160 
OSP03190 
OSP03200 
09603210 
OSP03220 
OSP03230 
DSP03240 
nSP03?60 
DSPO J?60 
DSR01270 
DSP032R0 
nSP03290 
OSP03300 
O3P0J310 
DSP03320 
OSP03330 
DSP0134O 
DSP03350 
PSP03360 
0560 1370 
DSP033S0 
OS603390 
('5603400 
OSPOJ410 
OS60J420 
PSP01430 
OSP03440 
05P03450 
DSP(*14hO 
DSP03470 
OSPO 14B0 
DSP03490 
OSPO 3500 
OSPO 35 10 
0SP03520 
nSPO3S30 
DSP03640 
DSPOISSO 
DSP03660 
OSR03STO 
OSP03680 
DSP0359Q 
DSPOlhOO 
0560 (610 
05603620 
nsP03630 
OSP0J64O 
DSP036S0 
OSP03660 
OSP03670 
DSPO(G80 
nsP03690 
DSP03700 
DSP0J710 
05603720 
D9P01730 
D5P0 1740 
OSP037SO 
OSPO 3760 
D5P0 1770 
OSP03780 
DS603790 
OSP03A00 


page 0005 






FOHTf'HM W <7 cevFL 2J 


DSPLY2 
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FTL<=’ t? 


ntw7 



c 



0| 


ni <0 


f^JCl 


nK-P 


ftlOT 


0104 


oic^ 


01»t#3 


oi<>7 


01 C.A 


01^0 

219 

APOfl 


npol 




n?i>i 


o?n4 

??1 

A?l ^ 


n?o*> 

222 

I>pir7 




n?o«j 




fipi i 


o??2 


P?13 

20S 

nPi 4 





C* 

n?i^ 

210 

o?17 


0?l*< 




0??ft 




A??? 



?IS 

AP34 




OPPS 


APP7 



’20 


240 



0?31 


0?*^? 

305 

AP^-^ 

230 

A? 3 4 

250 


C* 


c« 


c® 

AP1C, 




0?17 





c* 


c* 


c» 

* 

c 


c»«* ( 


c 


2S5 


C® 


c 

0P40 


'>?41 

s 


. 

0P4'^ 


0?44 


n?4S 

4 


OSPO301O 
nSPO302O 
nSP03B30 
nspniBAO 
nSPOJHEO 
OSPO'^BGO 
nsp 03070 
nSPOTBfiO 
nspo jRon 

n0PO39OO 

RSPmolo 
nspmopo 
nsPOTOTo 
nSPfl 49A0 
DSPO 1950 
PSP03960 
OSPO <970 

rispo'<9flo 

O5P0<990 
r.bPOAOOu 
OSPOAOJO 
PSPOaIISO 
OSPOaOTO 
PSPOaOAO 
n9poA05o 
[•SPOa 060 
PSPPA070 
OSPOAOflO 
DSPO*090 
P5H0A100 
PSPOAllO 
nsP0-*i20 

P5P04130 
nSHOAlAO 
OSPOaISO 
nsPOAiAQ 
O9P0 a170 
PSPOaIPO 
05P 1)4190 
OSP04POO 
OSPOaJIo 
PSP04PPO 
PSP04230 
PSP04P40 
09POA25Q 
OSP04260 

. . . f)SP04?70 

305 FPPMaH/* ThF classification OF'.ITt* PIXELS WAS CHANGED AS A PFS<JPSP04?8(» 


IF (nuMAP .LE. 0 J 60 to 230 

IFIPTS.LE.nOJGO TO 230 
40=0 

f -tlFS=20 

IF (N-UIFS.GT,L1NFS)NRUFS=LINF5 

aPTS=PTS-UO 

LPTS=nO 

'^pOTHS=KPTS/1 10 

IF (‘',10 (nHis* 110 ) .nf.o)nv«dths=nhoths»1 

LASTSC=Si)D(ifHTS.I10) 

IF (I AST«C.f0.njLASTPC = nn 
1 = 0 
! = !*) 

If U.ST.'irfOTHSl GO TO 2?0 
1 IMr.gF=p 
»«rFG=P 
GO TO 370 
PkTFG=2 
GO TO Gin 
I'OGTIWllF 

IF ( I .FO-owOTHSI LPTS=L4STRC 
AIIPF.S=0RJF'40 ♦ AD 
Oo ?»« J=li'ipUFS 

Call WEAU(At1PFS*BUF ( 1 ,0) ,LPTS*JSTAT < J) 1 

AiiPf S=A0 oES»FPTS 

LI'jCoI=LINCNT ♦ I 

rOGTl'.HE 

LHiF=l INSTO 

t''HF=l 

FIOlSr'FO rtPAPICvG 

IFfJSTAI (I«UF1 .FO.DRO TO 210 

*2IT^ <6*240) LINF. <miF( !K*1BUF) *IK=ltLPTS) 

LIGF = LHF * LIMINC 
LlflCGT=LINCNT»l 

IF u IvrNT ,9T. OniOGUNlGO TO 215 

C^l L 4PF;iO(A|jPF5*dUF n ,IBUF) *LPTS* JSTAT ( IBUF) ) 

ttO‘'FS=AOitS ♦ 0PTS 

T ‘i.F=liUF*-l 

IPU iiiF.ST.i'iPlJFS) Ih0F = 1 
IF(L1nF.LE.( INfNPlGO TO 210 
AO=Al) * LPTS 
GO TO 219 
CONT INOE 

FOPWATC •»ISt2X*110Al) 

IFIFILTE«.F(5.0)G0 to 230 
WPITFIG* lOSlSPKNT 


»LT OF SPATIAL FILIFPING‘2) 


PRINT CLASSIFICATION SOMMAttT FOR-TBIS FIFLO 
call SFTmRG (60.4*62) 

Call P«TSI)m (TOTALS, TTOL.fi DFSC) 

IF (LISTS*. NE.O) GO TO ?SS 
IF ( DOTAEt ,E0. 0 .OS. nOTERH 

DOTS IN TriE DESIGNATED AREA OR NOT IN THE CLASSIFIED AREA WILL 
PAVE PCTAB=n 


CONTINUE 


,GT. 0 ) GO TO 500 


0246 

n?47 


WRITE (6*S> 

FORPAT UH]) 
no 7 CHPCT=1 ,N0FLD2 

IF (PCTAh (CHPCT.l ) .LF.N0SUB31 GO TO 0 

rhITF (6*4) TRMVFHd.CHPCT) .TRNVFR (2.CHPCT) 

F0HMAT(/23X* 'DOT (• * 14, * ♦* * 14* ' ) IS IN THE DESIGNATED ARO5PO4S30 
»FA* » ^ ^ DSP04540 

PCIARCCHPCT* 1) = 0 DSPOASSO 

GO TO 7 DSP 04 560 


PSP04290 

PSP04300 

PSP04310 

ObPn43?0 

0SP0433I) 

PSP04340 

OSP043SO 

DSPn4360 

OSP04370 

PSP04380 

0SP04390 

OSP04400 

OSPQ4410 

OSP04<(?0 

DSP04430 

f>SP04440 

DSP04450 

OSF04a60 

DSP04470 

OSP044B0 

OSPn4490 

OSPOaSOO 

ospo'.sio 

OSP04S20 



PriRT'lA'v IV 
FILP r.cRLV^ 
n?«o 

0 ?‘-n 

rtS"? 


n?-l 

n?‘^i 

n?55 


n>«ft 
n?c a 

n?sq 


ft?6n 

n?*l 

rr?f.3 

(’?<i4 

n?fth 

0547 

fl?»,a 

n?4R 

0P70 


"271 

n?7? 

n?77 

(1574 

n?74 

n?7* 

n?77 

n?7s 

fl?70 

n5'>n 

CPU) 

n?fl? 

('?‘n 

O?!-* 

n?H7 

n?hd 
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8 IF IPCTAHICHPCTf 1) .67.0) GO TO 7 OSPnA570 

V.PITE (6.2) TRMVFHU tCHPCT) .T9NVEH (2.CHPrTI PGPOAGftO 

2 F0r.MAT<//3K. «00T ( • » 14 . * i * * I A. « 1 IS NOT IN THE CLASSIFIDSP04590 

»Fii a^Fa* 1 DSPOAhOO 

7 rONTINOE nopoAAlO 

YWITF (6.S) 09804020 

C ' l>SP0Aft3t) 

c*»* rooF AonEo nov i3. iota to iNCLone list processing nsPOAoAo 

C ■ 0SP046S0 

IF (UISTSP.fO.O) 60 TO 600 09P04660 

FLOCNT = FLOCNT ♦ 1 , nSP0*670 

CALL LISTSm(T 0TALS«TT01 , HSPn46R0 

» PCTAP, LISTS*. 6TUNlT,fiTFILF,AIU('(IT*AlFILE» DSP04690 

« PPONIT.PPFlLE.NAoerT, ALP. FLOCNT. OSHOtTOO 

• ’ NOCAT.rATMAM.SimCAT.h0FLO2.NOSUP2) OSPOATlO 

C - DSP04720 

C DSP0»730 

C OSP0A740 

son CONTINUE nsPOATSO 

(lO TO 20 OSP04760 

310 CONTI .HE DSP04770 

pftur- osPOtTao 

C OSP04790 

C SELF-CONTAINFO SUBOOOTlNf TO PRINT HFSOfRS OSPOAAOO 

C — — — * — — DSPOAOl 0 

c nsP04H2o 

370 *;<1TE (6.HFA0) OSP04rt30 

WWITF I6.3^0)FLnFSC,C0ATE 0SP04O40 

300 FOkMaTC DISPLAY OF CLASSIFIFD FIELD USP04ASO 

• • classification rate OSPOAHAII 

IF (PiFl 6.6T.0) WRITE (6.390 IrfhCOMR. (FFTVC2 (L) .1 =l.HHFtAT) PSPOmoTO 

IF().MFl6.fn,0)«RlTF(6.400) IFFT\/C2 ID »L = 1 . N0FFT2 ) 0SP04AB0 

CALL SAPHO (N0CAT,SYM>.TX.CaTnam,i<ATN0,CLSNA3.SUHN0,SUBNaM. OSPOiflgo 

• CLSSU■^.^|nCLS?. (OSU»?.THPSKY.ThRESI DSP04900 

!FIOESKEY.FO.U»RITt (6.410) SYmmTX (OE SUNl ) OSH04910 

410 FOQNAT{/S«.»o« DFsIGNATFn FULDS SYMBOL IS '.Al/l 0SP04O?0 

390 FOPPAI ICI ASSIFICATIOU CHaNNFLS . . . • . 1 2. • LINEAR COMBINATIONS nnSP04930 
«F CHa-NELS<F 3AX, 3nM) CISP04940 

400 F0RMAr(l2X. 'Cl ASSIFICATION CHANNELS . . . • . 30 1 3) OSP049SO 

fiO TO (31 .221) .WRTFG OSP04960 

C» ObPfl4970 

C« DSP04990 

C» INTFxNAL rout INF TO PRINT COLUMN NUMHERb DSPO^OOO 

C®, OSPObOlO 

blO J=0 OSPOSOPO 

00 SO IJ=ISTRT. IEUO.SAMINC OSP0b03fl 

U=J.l nSPObOAO 

Cf'L(i.j) = ij/inn DSPososo 

CI)L(2. J)=MOD(IJ,10fl)/10 0SP0-.060 

r<)L (3. J)=MOD{ IJ. 10) OSPOS070 

IF (.).T 0. 1 1 0) GO TO 60 nSHObOPO 

SO continue USP0b090 

60 SAMEN=I ) _ OSPOblOO 

ISTPT=SAMFN ♦ SAMINC DSPOSllQ 

1PTS=J OSPOblEO 

WRITF(6,96) nSPObllo 

Oi. 60 T.)=1.3 DSP0S140 

eo j.RnE(6.94) (C()L(!J.J) »J=l.IPTS) OSPOSISO 

90 FORMAT (9X.U011) (ISP0S16O 

»PITF (6.96) nSPOblTO 

96 FORturi/) nSPOSlRO 

^ GO TO IP6.222) .PHTFG 0SP()bl90 

0SP0S21 0 

C INTERNAL sUPROUTINF DOTPCT nsp"b230 

C 0bP0S240 

C® PURPOSE - TO SET PCTAM TO EACH DOT'S RESPECTIVE SUBCLASS DSPOSPSO 

C® (OH THRESHOLD) NUMBER WHFN THE DOTKEY FLAG IS ON 0SP0b?6() 

c fl AAoaaAft««a A.AOOttoa 04 naft oo«AA« Al» AU.4H.A AA A«aoV««0«a«04AA A OSH Ob 260 

C® 0SP0b2fJD 

C® TEST FOR THE POSITION OF THF DOT IN THE CLASSIFICATION OSP05300 

C® HECOHD nSPflSllO 

C® DSP0b320 
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0SPLY2 


DATE = 7»33fl 


09/57/«‘» 


PAGE 0008 


n?tn 

fl?f 3 
r>?<;4 
A?A'i 
n?oA 
n?77 
n?&A 

n?q<» 

0300 

0701 

030? 

0303 

0304 


0303 

0306 

0307 
0300 
0300 


C« 

c» 

c» 

432 

431 

430 


421 

All 


IF THF DOT'S position IS NOT COMPATIBLE WITH TMF CLASSIFICATION 
PECORO. PCTABtJJ.l) s 0 

IF tPrTofy.NF.O) GO TO 430 
no 431 I=1.H0FL02 
PCTAWd tl)=0 
Pi*T4cY = 1 
DO 411 •‘sSfNT.FCNT 
S4H,f=TRNVFB(! .K1 - SAMSTR 
sa«pS=SA^OP/SakINC ♦ 1 
ff<SPS=(SA.-PS-l )«SAMINC 
SA'fif. = SA-'OF ♦ SAmST® 

CPCRS = C^SRS * Sa«STR 
IF tFMSRS.NF.SAHDFl GO TO 421 


'-CTir'IKtll 
(-0 TO 411 
PCT4 h{k,11 
COnT I lUF 
GO 10 114 


= I«(SA''PS.ll> 
= f| 


DSP0S31O 

0SP0S340 

OSPOSSSO 

OSP0S360 

0SP0S370 

OSPOS3GO 

osposaoo 

OSP04400 

nsPo‘’4io 

l>SP0S4?0 

0SP0S430 

nSP0W440 

0SP0S450 

nSP0H460 

r*SR0S470 

t;SP0->4P0 

0SP0S490 

tlSPOSSOO 

rsHo-'Sio 

nspo*>s?o 

OSP0SS30 


Cftaa«4«asa«B.}i>a««c»a««o<>«aoi>«ooa«ftft««aa»«fli!««««o«««««a«««<»**«««««a«naoaaDSPn‘,S40 
C OSPO'^SSO 

c nspo‘'S6o 

C IMERtsiL SUPPOUTlNE OOTSUM , OSP0S570 

c. __ _ _ __ ' nspo3Sflo 


c* PURPOSE - TO COMPUTE BOTH UNCOPRFCTED PHOPOttTlONS AND f)I AS-COBRECTFD OSP0‘’S90 
-- PPOPORIIONS OF THF ANALYST-LAPFLEO CATEGORIES IN THE CLASSIFIED 


CO 

CO 

Co 

CO 

CO 

C* 

C 


, AiFa. also rOMPuIFS THF alpha TAHt F AMD OUTPUTS TwO CATEGORY 
CLASSIFICATION performance SIImmAR|FS - 

til summary of ANALYST-LAmELHJ catfgories vfrsus total 
MIHREP OF DOTS CLASSIFIED INTO k ACH CATF.GOPY. 

<21 CLASSIFICATION SUMMARY FOR EACH INDIVIDUAL DOT. 


DSPnSGOO 
fiSPO^Gl 0 
OSP0S620 
PSRns630 
PSPAS640 
nsPA-^Gso 
PSPOMGOO 




C» 

CO 
C* 

sno 

c* 

C* 

CO 

CO 

CO 

C« 

CO 

C» 

C* 

C« 

c« 

fo 

f* 

C* 

CO 

C« 

CO 


initialize arrays 

TYPF = TR4SAVI3.1) 

FRROR flag for invalid SUrtCI ass 

M(.GO0n=-S43?l 

NUMPkR OF DOT LARLFD CATAGORIES 
MiCaT=DOTKFY 

NUMMtR Of CLASSIFICATION DOT CATAGORIES 
tJClAT=nOf (.T 

NO. OF CLASSIFIED CAT. ♦ I FOP THRESHOLOED DOTS 
MCI CAT = NOCAT ♦ 1 

ON INPUT TO OOTSUM, 

TRNSAVU,!) = SCRATCH USAGE 

TM.ySAvIdill = MAPTAP CATFGOPY NO. CORRESPONDING TO THE DOT'S 

TR'iSAvo.ri = noT typf =i or 

TRnSav<4.T) = NO. OF VERTICES FOR THE DOT =2 


IPNVFRU. ) 
TRNVtPlP.I) 


DOT SAMPIF NO, 
DOT LlNF NO, 


FDR I = I.2« ... . NO. OF DOTS 


naio 


no 610 l=l,N0KLn2 

n3ll 

r* 

laplfo out catagory 

c* 

THNSAV(3,Il=TRNSAVt2.Il 
vertex SAPPIE OF DOT 


0312 

“ 

Trnsav ( 1 ♦ 1 1 =tpnvFh ( 1 » 1 1 


C* 

LINE NilMHFR OF OOT 

0313 


Trnsav ( 2, n=TRNvEKt 2.11 

0314 

610 

COMINUF 

031S 


no 610 i=i,mclcat 

0316 


CLT0T(I)=0 

031 7 

630 

CUNT iNilF 

031 H 


no 130 i=i,mocat 

0310 


LRLTOnil = 0 

0320 


TOTLHL 111=0 

0321 


TOTTrtRUl=n 

0 322 


00 690 J=1,nCLCAT 


ospoSGan 

PSP0‘'6qu 

PSPas7(ii) 

0SP0S710 

0SP0->720 

PSP0S730 

DSP0S74O 

PSPOM7SO 

PSPnS760 

DSP0ST70 

PSPOS7flO 

DSPns790 

RSPnsBoo 

PSPniaio 

OSP0MM2O 

PSP0SP30 

PSP0SH40 

(ISPOSASO 

DSPn-^ftGO 

nsp()->s7ii 

osPDSPsn 

llSPO-iPOO 

D5P0-.VIB 

ospnsqpo 

PSP0S930 

DSP0SR40 

DSP01950 

nspo-iRGo 

OSP0S970 

OSPOSRflO 

nsPoSRwn 

OSPOmOOO 

DSPOgOIO 

PSP06020 

DSPOG030 

OSP06040 

OSP060SO 

DSP06060 

DSP0hn7O 

PSP06060 
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OSPtV? 


DATE a 78336 


09/57/A9 


page 0009 


FHP 1 9PI Y2 

A3?3 

A3?a 

032= 


0344 

0349 
A340 
03<.7 
A34J 
0340 
0390 
03=1 

3-Jcp 

03*53 

03=4 

0399 

0350 
0357 

"359 

03=0 


0370 

0371 
037? 
0373 


490 

130 

r» 
c» 
c» 
c* 


(il?7 

ni5 ^ 

6?0 

n333 

c» 

c® 

c* 

631 

03 

C® 

c® 

L® 

0337 

n33^ 

ft33'? 

0340 

641 

03a? 

643 

03A1 

640 


c® 

c» 

c« 

c« 




49 

650 

c« 

c* 

3003 


LAHCLSa.J) = 0 
CONTI-lue 
CONTINUE 

OmPlITF total NUM0FR OF PTXFLS CLASSIFIED IN TOTAL CLASSIFIED 
AhFA wITriOUT THflESHOLOEO PIXELS 

PIXTOT=0.0 
no 6?n i=i>N0suP2 
PIXT0T=PIXT0T ♦ TOTALS(I) 

COixTI'iUF 

CALCOLATt TOTAL NO. PIXELS FOR FACM ANALTST-L AHf LEO CATEGORY 

no 631 I=l.NOSUP2 
CAT = SUhCAT(I) 

LPLTor(CAT> = LflLTOT(CAT) 

CONTINUE 

COMPUTE OOT TOTALS CLASSIFIFO BY CATEGORY 

00 640 I = l,30FLri2 
SlJPCLaPCrAi3U.il 

IF (SO' CL.LE.O.Ofl.SURCL.GT.NOSUflSI 
CAT=SURCAT(SUPCL) 

CLT0T(CAT1=CLT0T(CAT> ♦ 1 
GO TO 643 
COnT iNUf 

PCTAOU,! I = NOGOOD 
CONTI 'jUF 
COnT iNJt 

PUILO an ORDERED 
CATErGOrtlES 


TOTALSdl 


GO TO 641 


SET OF OOT CATEGORY LABELS FOR ANALYST-LABELED 


C® 

C® 

c® 

c* 


70 

C* 


OSP06090 
(1SP06100 
DSP06I 10 
DSP06120 
DSP0613O 
OSP06140 
OSPOGISQ 
nsP06i6n 
DSP06170 
nsPOMMO 
DSP()6190 
PSP06200 
DSP06P10 
f)SP06?20 
DSPfl6?30 
DSPA6P40 
PSP(i6250 
DSP(ln?6U 
OSPOfPTO 
0SP(16?6n 
DSPO-'PRO 
DSP06300 
nsp(16310 

OSP0632C 
OSP06330 
DSPC9340 
DSP061SO 
OSP06360 
DSP06370 
OSP063PO 
DSP06390 
05P0640n 
OSP06410 
OSP064PO 
DSP06430 
nsp(i644n 
('9P064SO 
OSPAnAhO 

DSP06470 
DSPooAun 
OSP06490 
dsponsoo 
DSP 06S10 
DSP06S2O 
OSP06S30 
nsPOASAO 
nspoosso 

OSP06S6O 
DSP06S7O 
DSPflhSflO 
nsp(]6S9n 
Ospn660o 

FORMAT!//// SX, •»»** DSPLYP/OOTSUH — DISCREPANCY IN DOTFILE INFODSPOgG 1 (i 
»PA*ATI0L ***** // 27X.*N». OF DOT CATFGORV LaRFLS HATCHING MAPTAP OSP066PO 
®CaTEGO-<Y NaHFS =• • 16// ?7X. *N0, OF DOT CATEGORIES IS GIVEN AS =OSPn<-630 
" • . 16 //// ) I)SPtl6640 

DSPfl66S0 
()SP(ln660 
DSP06670 
DSP(166H0 
DSP06690 
DSP06700 
DSpn6710 
DSP0672O 
nSP(16730 
DSP06740 
DSP0675O 
OSPD6760 
DSP06770 
DSHfl'>7R0 
DSP06790 
OSP06HOO 

DSPfi6B10 
OSP06A2O 
OSP06B30 
OSP06H40 


J=1 

LMLal-JNSAVOill 
outokiuutII = catnam(lbli 
D llT0Kfl(J.2) = LHL 
DO 6S(, I=?,N0FLD2 
LFLaTRNSAVn.il 
on 66A K=1,J 

IF(LhL.Ea.OOTOHDlA.21 1 GO 

continue 


TO 49 


= catnamilbli 

a LHL 


Jaj.l 

DOT OHO ( i.\> 

00T0RD(J.21 

continue 
continue 

IF 1 J .NE. NOCAT 1 WRI TE (6 > 3003) J t NDCAT 


OlAO 

c® 

DO 63 1=1. NDCAT 

n3Mi 


K B 1 

036? 


DO SZ J=l. NDCAT 

0363 


JK a 00 TORO (J. 21 

03^4 


IE (JK.NE.K) GO TO 51 

03AS 


OOrLnL IK. 1 1 = nOTORDIJ.il 

0366 


ItfiTLRL (K.2) a 00T0PD(J.21 

0367 

SI 

CONTI* ‘IE 

036f* 

s? 

com III' IE 

0360 

S3 

CONTINUE 


compute UNCORRECTED PROPORTIONS OF OOT 
area classified 

DO 70 lal, NDCAT 
JanOTLRLU,?) 

PUMC(I) a float (LBLTOTUn/PIXTOT 
CONTINUE 


CATEGORIFS OVER THE TOTAL 


/# 
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" 37 a 

037 '; 

017 A 

m 77 

037F 

0179 

m-<o 


041 A 
0417 
OAIB 

041 R 
04?0 
04 PI 
04?2 
04?3 


C» 

c* 

C* 


GAO 

C« 

C« 

c» 

c» 
c» 

c» 


TO CONTAIN 


AlAl 

mp? 



616 


615 


C» 


C* 


C« 



Alpq 

oisn 


fP 

03^3 

1 S 3 

0304 

154 

n 3 -^S 

IS 6 


161 


C* 


C» 


C* 

03<?7 

n 3 <>H 

0400 

0401 
040 if» 

170 

0403 

IBO 


C* 


C* 


c® 

0404 

040 5 
040 fi 
0407 
040 H 

175 

0400 

IPS 


C* 


C» 


C« 

0410 


0411 
04 1 ? 

0413 

0414 

ISO 

041 S 

199 


00 IGl t=ItNOCAT 
no 1-6 J= 1 ,N 0 CAT 
IF(fLT(lT(I).LF.O> GO TO 1 G 3 


= FLOaTILABCLSU,!))/ FL 0 AT(CLT 0 T<I) » 

= 0.0 


c* 

c» 

c* 

c» 


291 


ALPHA 11 tJ) 

60 TO 154 
ALPHA (T.J) 

CO'ITIFUE 
rONTlNUe 
cOATir.ut 

CO-PUTE CuRRFCTED PROPORTIONS FOR LABELED DOT CATEGORIES 

DO IBO T= 1 ,NDCAT 
PCTOT= 0 ,« 

no 170 j=i , nocat 

PCT 0 T=PCT 0 T ♦ ALPMAlJf I)*PUNCU) 

CONTINUE 

PtORW(n=PCTOT*100 
COMTINOE 

MAKE PONC and ALPHA TO REPRESENT PERCENTAGES 

DO 1 R 5 J= 1 .NI)CAT 
PllMC(J»=PUMC(J) « 

DO 175 1=1. NOCAT 
ALPHA(I.J) = ALPHAd.Jl * lon.O 
CONTINUE 
CONTINUE 

calculate total no. UArtELFD DOTS IN EACH LABELED DOT CATEGORY 

DO ILO J=l, NOCAT 
LHL=riOTLBL<U. 2 ) 

00 wn i=i,noflo2 

IF <T«NSAV( 3 .U.E 0 .LBL) TOTLBL(J)=TOTLBL(J>*I 
continue 
continue 


100.0 


0SP06650 

OSP06A60 

OSPflbPTO 

D5P06680 

DSP0OP90 

DSP06900 

D5Pn6910 

OSPON920 

PSP06930 

PSP06940 

05P06950 

OSP 06 P 60 

0SP0<i970 

DSP06980 

DSP06990 

DSP07000 

DSP07010 

nsPn?o?o 

DSP07030 

OSP07040 

nsPOTnso 

nspoTObo 

05P07070 

nSPOTORO 

PSPOTORO 

nspo/ir ■ 


IMTiALUf THNSAV<4.I) ,I = 1.N0FLD2 TNO. OF DOTS! 

CLASSIFICATION CATEGORY NUMRER OF DOT I. 

00 bfaO l = l.N0FLf>2 
SUHCL = PCTABd.l) 

IFTSUOCL.EO.NOGOOO) CAT = NOROOO 
IF 1SURCL.FO.KOSU63I C4T=N0CAT ♦ I 
lF(SUHCL.GF.l.aHO.SObCL.LF.NOSU62)CAT=SUBCAT<SUBCL) 

TrVnSAVlA. U=CAT 
CONTINUE 

TAtLf OF totals of analyst-labeled DOT CATEGORIES VERSUS 
CIASSIFIED DOT CATEGORIES. LABCLS (LABELED CaTiCLASSIFIEO CATJ 

no bis J=1.N0FLD2 
CLS=TRNSAV14tJ> 

IF ICLS.EO. NOGOOD) GO TO 616 
LP = TRT'SAV(3,J) 

LAHCLS(LH.CLS) = LABCLS (LB. CLS) » 1 
CONTI'jUF 
COnTI.NUF 

COpPUTF ALPHA TABLE FOR LABFLED VERSUS CLASSIFIED DOTS 

■ DSPO/lOO 

DSP07110 
DSP07120 
OSP07130 
OSP07140 
OSP07160 
OSPn71bO 
nspomo 
OSPO/IBO 
DSP07190 
OSP07200 
OSP07210 
OSP07P20 
OSP07230 
OSP07P40 
DSP072SO 
DSP07260 
nSP07?70 
OSPn7260 
D5P07290 
DSP07300 
DSP07310 
DSP07320 
DSP07330 
0SP07340 
OSP0T350 
OSP07360 
nSP07370 
DSP07N80 
OSP07390 
DSP07400 
DSP07410 
DSP07420 
DSP07430 
0SPQ7440 
DSP07450 
DSP07460 
DSP07470 

TOTTHR WILL CONTAIN TOTAL TMRESHOLDEO DOTS IN EACH ANALYST-LABELEODSPO 7490 
CATEGORY DSP07500 

DO 2 S 1 I = 1 ,NDCAT nSP 0752 {I 

TDTTHRd) = LABCLS d.NCLCAT) DSP 07530 

continue dspotsao 

PRINT summary TABLES DSP07SS0 

DSP07560 

K2=N0CAT D5P07S70 

IF(NOC4r.GT.3)K2=3 DSP07SB0 

wx=l D5P07S90 

NN = hOCAT DSPOTbOO 
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FTLP r’SPLY? 


A4?4 

flofl 

n4i^^ 

A4?7 

1800 


1002 ^ 

A4x') 

108A 


lOOS 

r'Mf 

'tf'T 

cc 

108ft 


1883 

n4ir 

n4^fi 


0440 

2081 

A44] 

A 44 ? 

04.f-^ 

r>444 

A445 

A44A 

A447 

0440 

A44V 

04S0 

lOIU 

1?88 

3880 

3001 

A4S? 

04^-^ 

< 14^4 

300? 

r4ss 

04«^7 

380A 

A4hn 

A4M 

r»4h? 

4pOO 

3 


1 

♦Uf*4 

POOS 

04<Sf 

0467 

0470 

^471 

06/? 

4999 

0471 

0474 

5801 

T47S 

0476 

5803 

0477 

0471 

04/9 

04Hn 

04m 

04h? 

0413 

0414 

04^>*5 

A4KH 

5000 

04Rq 
04 90 
049] 
049? 

7005 


IF(NOCAT.GT.30>NN=30 OSP07610 

WkTTFIAtlOnO) DSP076P0 

FUKi>ATIlhl.T35.*DOT DATA PERFORMANCE SUMMAHY*! DSP07630 

WhITF t6.1«0?> OSP076AO 

Fot-J-ATI/ rpl* •< summary of analyst LAHFLFO VERSUS CLASSIFIED CATrOflOSPOTOSO 

nspr7G60 

v.MTTFiF,innA) 


“PI.TS^, •U'iCnRRECTED»»T76i • BIAS' »T92t' DOT CLASSIFICATION SUMMARY') 
IF lA, lons) 

FORMAT (T2'» 'LABELED' »T IS. ' ANALYST ' .T30» 'CORRECTLY TA3, ' TriRESMr 

* .TSO. •CATFRjmvi ,T74, 'CORRECTED' .T 102. • (ALPHA) ») 

A*.fT'^(A.l'i('A) „ , 


»r •.T7**'CATF<70«Y») 

..,[TF (s. liin“) )CATi.AM( I ) . !“) >t<2> 


DSP07ARO 
OSP07700 
ODSP 07710 
OSP077JU 
l)SP0773fl 
TfiSP077AO 
DSH077S0 
nsPflYTOO 

.. , - .'OSPfl7770 

« // ) r,SP077«0 

(Id loin I=PT.Nd DSP07790 

P(,C = (FL lAKLAHCLSa.in/ FI LlAT(TOTLHLtl))) ® 100.0 nSPOTHOO 

hi-rTFiAfponiinuTi plu.d ,totlml(I).pcc.tdtthR(I) .puncid.pcorkid.ospothio 
« (LA'*CLSU .J) .Javi »1T2> nSP{l7fi?0 

FdRi*AT t/T*..A4tTlS.lA»T30iF7.3tT 4S t l4.T60*F7.3.T7A.F7.3fT91 .3(I6.7Ynspo7A30 
»)/) DSP07R40 

CAL L bnI4ahfpt3(3) .1 .(<21 . 

P.dTFIS.FITT) (ALPrtA(J.I) |J=K),K?) nSP(17A60 

ruRT I iR*JF DSP 07 070 

TFIdOCAf.LF. J)U0 TO ?nOS DSPOTHHO 

Kj=i<? 05P0/H90 

IT*- (A. 300(1) osPnrsoo 

F()kmaT(IH1.T?. 'ANALYST LAHFLFD ' . TSO . • DOT CLASSIFICATION SUMMARY') OSP07910 
arITF (A. 3001) nSP0792Q 

FORMAT IT3» »nOT CATEGORY • i TSO. • I ALPHA )' > nSPfl7930 

k3=h 3 . I fiSP0 794n 

K.. I = K3 ♦ S- 1 nSP079S0 

IF(NOrAT.LF.KNN)KNN=NOCAT OSP07R60 

w>.ITt(fi.-3on?) (CATI.AMI I) . |=K3,KNN) OSP07970 

FOR 'AT(/T?S.Ma4.9A)) dspo'vbo 

fid 400A 1I=»A.MN OSP()79RO 

..rITF ((1.3'tOA) |)(iTLHL( n. I ) t (LAflCLsnl.J) »J=K3.KNN) DSPOMOOO 

FORHATI//rn.A4,T?S,3nA,7X> ) DSPOhOIO 

Kn=KNN-i<3'I DSPnP020 

CALL HdlAAl (FMT4(J) ,1 ,KN) 0SP(1K03Q 

wtv)TF (S.FMT4) (ALPHA (J« II) .J=K3«KNN) OSPOnOAO 

Cd'iTlNiJt ■ OSPOROSO 

IF(i<N(i,L£.NOCAI)GO TO POOS OSPOPOfiO 

k3=KNn f)SP0P070 

r.0 TO !200 DSPOBOflO 

Cd' TTMIt nSPORORO 

IF(f U,r,F,..OrAT) GO TO 4999 OSPftPlOO 

pA=N't .1 i'SPfl*-no 

jvjA.= ♦ 7 nsPOAlPO 

IFIdN.iiT.'.OCAT) NN=NI)CAT nSPfl(U3fl 

(.0 TO AOO DSPOrtTAO 

SURNAR| iOSIiR 3)=THKESH DSPOHlSO 

P(, = 0 DSPfl il(iO 

P.(I TF (A.bliOl ) DSPOM170 

FU"iBAT(lrtUT39.'00T DATA PERFORMANCE SUMMARY') DSPOilftO 

Li'ITFIA.SOOI) D5P(l«l9a 

fOOMATi/ijQ,. (suMNARY of individual DOTS)') DSPCPOO 

vii^iTFCA.&noA) r>SPflP?io 

FOrmaTITAT.'DOT 10 = (SAmPLF .LINE) • ./) f)SP()H?20 

S» Ip? = 0 DSPnP?3D 

Nv..nE = d0FL02/4 r>SP(lPP40 

U (P0O(N0FL0?.4).GT.I))NMftTTE=N'nHnE4l FISPOR2SO 

no 7000 1=1,JPRITE dSPOSPNO 

pp = MIS ♦ 1 DSP0rt27U 

SA'^Pl = SAMP2 ♦ 1 DSP(1R?H0 

SAlPP=SA1Pl ♦ 3 lJSPnh?90 

IF ( SAMP? .pT. NOFLD2) SAMP2= NOFLD? OSPCnSOO 

NSAMp = SAMP? _ SAMPi » I nsp(iH3in 

CALL MMI4A1 (FmTS( 3) .1 .NSAMP) DSP0i!3?0 

WPlfF <A.7iinS) (ftLANKSI J ) .THNSAV(l.S) .TRNSAV (2,S) .S=SAMP J .SAMP2) l)SP()ri330 
FfI-MAT(//T7.3(Alt lH(.I3.1H..I3.1ri).23X) tAl.lH(.I3>lH.Tl3?)H>) tiSP0R340 

CALL RNI4A1 (FMT1(3)»1.NSAHP) DSPORSSO 

Call BNUAUFKTmo>.l.NSAMP> OSPflrtlOO 



OSPLY? 


DATE = 7fl33fl 
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FOSTPAN rv h LFVEL ?l 
FRF f.SPLY? 


A40T 


roit K'lIAAl (FMT2C J) ,l,NSA«P) 

OSP0O37O 

fiACA 


fail htllAAl {FMT2(14) .1.N5AMPI 

PSP0H3R0 


C 

rfH(TE(6.f MTU 

DSP0X390 



»m|TF16«7«01) (HLANKS(7> «7*1 *NSa‘4P1 

DSPOriAOO 


7001 

Fi w»> A T ( T 7 . 3 ( A 1 , Hnr ATKGOrtY . 24 X ) t A 1 , AHCATEGORY 1 

(15P0AA10 

AA >7 


► “ITF (6»>i001) (PLAhKSl/l »Z = 1 *N=AHH» 

DSP0H4P0 


onni 

FiiOv^T (T1,3(AU26M — — — *6X1*A1» 

DSPOmAIO 


i 

» — — ) 

OSPO^-440 

T4<50 


-KlTFlfi.F 3T?> 

DSP0H450 

0=00 


xJSfl 

05P04460 

nc.ni 


IXJ 6000 S=SA>*P1 ,SAMP2 

PSP0P470 

il ti ^ 



C5P0n<*ftn 



>Y7=rr'lSAV(3,5> 

nSPO«490 

n^^OA 


Am{. = T»"-S4V (4t=J 

nsPoASOO 

nsnc, 


f'FF = ►-CTfi><(S*I 1 

nsPoAsio 



Tr-'K(J.l)=rArNfi ^<aY7> 

nspo»‘^?o 

0=07 


IKrFF.El'.MnrxjOd) (lO TO 5990 

D5P00530 



TF.>H(.J.2)=CATMA< (A9C1 

I1SP0H540 



IF (MFF.tO.NOSlMT) TFmp (J,2I =AST 

DSP0M550 

n*il 0 


tf '“( ..3)=<;ijfaam(oef) 

nSPOMSAO 

0=1 1 


TO 

05P06570 

"‘ll? 

sq<58 

Tr-Apl J,1)=A=T 

nsPOHSPO 

Ac;| 1 


T>"'P(j.2)=a=T 

0520/5590 

»»C \ A 


roNT r\HS 

nspn‘»ftoo 


6000 

rf)''TifMiF 

nspnHftio 

r^l A 


•■9ITF.{4,S0?0) (TE'tP(PtU.TEMP(P,2) ,TEMP(Pi3) .P=1.J) 

0520x620 

0=17 

5020 

FiiUm/T 1/T4.3(44.5<,A4.6X* • ( • t a 4 * ' ) • tUXl i A4 »5Xf A4» 6X . • ( • » A4t • ) « ) 

f)SP0X630 

AC \ >* 


IF (P(j,|.T.5)fiO TO 6001 

n5Pfl/*640 

Acjo 


= n 

O5POX650 

ns?n 


v-klTF <''.600?> 

OSPOrffton 

ns?l 

600? 

FijWMAT llhl) 

05P04670 

n^pp 

60-0] 

r<FiT I'-‘')F 

nSP0S680 

AC?1 


u = I 

OSP0*i69O 

nc^4 

7000 

Cd'ITl.iDE 

nspoAToo 



(ii) TO 500 

05PO/<710 




D5P09720 


->0 



E.4 SOFTWARE SUBPROGRAM NO. 4 (PSPLAY) 

Siabprogram DSPIAY is the driver for the DISPLAY processor of the 
EOD-LARSYS system. 

E.4.1 Linkages 

DSPLAY is called by MONTOR. It calls SETUPS, DSPLYl, DSPLY2 , 
PRTPCT, EMTHRS, and FDIST. 

E.4. 2 Interfaces 

DSPLAY has included labeled common block /DISPL/. 

E . 4 . 3 Inputs . 

Calling Sequence; 


Keyword 

Dimension 

In/out 

Description 

ARRAY 

Top 

Out 

blank common used 




for data transfer 

TOP 


In 

Size of ARRAY, 


currently = 10600. 

E . 4 . 4 Outputs 
N/A 

E.4. 5 Storage Requirements 
1532 

E.4. 6 Description 

Subprogram DSPLAY has been modified to incorporate LIST processing 
The calling sequences for DSPLY2 and SETUPS have been expanded. 

If LISTSW is turned on, a transfer aroimd the EMTHRS calls is made 
After the DSPLY2 call is completed, a transfer around the PRTPCT 
calls is made. 

(These transfers generally follow those made for normal Pi 
processing) . 







E.4. 7 


Flowchart 


N/A 


E.4.8 


Listing 



FORTRAN IV 

•* i-KVFL 

21 OSPLAY 

DATE = 78330 

09/5S/59 

•PAGE 

cue -'SPeaY 




' 


0001 


SUHROUTInE OSPLAY I akRAY, TOP) 


DSPOOOlO 


OOh? 

C 

Implicit integer ia-h.o-2) 


DSPO)I020 

OSP0O030 



r 

' j ’ 


OSP00040 


0003 

c 

dimension array U) 


OSP00050 

DSP00060 



(1004 


nncj 


rr — 



C( 
Ci 
r 1 
CI 

Ci-LL.. 

CALL DSPLAYIARRAY.TOP) 


ARRAY - SFF 'MONTOh* 

Cl 

ct 

rr 

PUPP(5SF. 

TOP - SFF ‘MONTOR* 

.COORDIpATFS ROUTINFS for displaying CLASSIFICATION 

MAP AND pepf'irmancf Tables, 

LI 

Cl 


ri — 




c« 

c* 

c* 

c» 

c» 

c« 

C“ 

c® 

c® 

c® 

c« 

c* 

c* 

c« 

c® 

c» 

r« 

c* 

c« 

c« 

c» 

c« 

c« 

c* 

c® 

c» 

c» 

c® 

c»- 

c» 

c» 

c* 

r® 

c* 

c* 

c* 

c* 

c® 

c® 


I^CLlJr)F cmmkio»list 

ir.riij()F coMTin 

COMMON/OISPL/r4TFLO,rATN4*l(41 ) ,ci ) .SlIHMAM (ft I ) tSUBNO <fiO) , 

SUHCAT (hO) .Cl ‘iFIH(A()) .NOwAP. ruTVT3«NObUH3. 
PCFU>^Y.TSTKeY.Tft<')l<FY,TnWSKY,i.TATKY.EMPTHS.THHSVA. 
PLTKf r.MJFL(;.b''CI)MH.KMFF 4T.CHATF (?t. 

FL'I'IVP.FTn (i?,VFf<TY?,FLii‘;v3.FIfl 03. VFPTAJ.PCTFCO. 
THr(Fi>('*(t) .SY'inTx (6/)) iHltiHlnCi) .CON(AO) 
.FLO<<tY.'inFLfip.»'OFL'13, YOFFTP.FFTVC? <30) 
.nnsU-^P.^'(JT^^FO,T(>TvT?.^(()Cl ■?? 

.KAT(ll)lfin) .M0r«T,FIL3FW»"'4Pf HT 

.FjFbi^FT.OPSli'JI .DFSOTh.CmOP , aCpOP . AOTOFP. ATOTAL 
.SITE 16) .A6ALYStbl .CAMUS) .CRPKt Y i rePPrs ( 60) 
.OOTKFT.nOTFMM 


COMMOt. OLOCK OISPL IS USED ONLY IN THF DISPLAY PROCESSOP 

definitions 


catelg - Flag indicating whfthfp oh not category performance 
RFPOHTS MUST HF RFNFRATEI). 

NAPES OF CATFGOHIIS. PE AD FROM maPTAP. 

NAPES OF CLASSES. HFAO FROM MAPTAP. 

NA«FS OF StmCLASSFS. RF AO FROM MAPTAP. 

SUBCl ASS-CATEf.ORY CORRFSPONUFnCE VECTOR 
IStlBCAT(l)=M MEANS SOHCLASS I dtlONGS TO CATEGORY M) 

supcLASs~ri ASS copRESPonoFNrF vectoh. 

ICL5SUM(I)=k means SOMCLaSS I HELONGS TO CLASS M) 

ThIGGFR indicating RhFTmFH or not a map is to be PRINTEDSPODSPO 
T()TaL ..0. OF VFhTICFS IN ItoPUT TFST FIFLOS. DSPno530 

NO. OF SOHCl.ASSES USFO IN Cl ASSIFY PLUS ONE. FOR THE OSPOOBAO 


CaTnaM 
CLSNAM 
SURNaM 

suae AT 

CLSSUB 

nomap 
T0TVF3 

N0SMR3 . 

TnPESHOLn n ASS', 

PCKDKY - KEY indicating -'HFTHFP OH 
RFPDRTS ARF to RF PHInIFR 
KFY InuICAT ING -phfthfh oh 
KEY INDICATING nHFTHEH OH 
PE OUTl.lNFO. 


nSPOflOTO 

osponoho 

inSPODORO 

iDsonoioo 

TDSPoniio 

nsPooiEo 

I[jSPnAl3o 
lOSPOUlAO 
I DSP 0(1 ISO 
IOSP0016O 
DSP0('17O 
OSPoniftO 
TDSP00190 
inspfioaoo 
!liSP(l«i?IO 
OSPOilEPO 
OSP01V30 
nsPonpAo 
(>SP0(1?S0 
OSPOdPbO 
DSP(in270 
DSPOH2BO 
OSpno?90 
DSP0(i300 
nsPno3io 
DSP0(1320 
RSP00330 
0SP00340 
PSP003SO 
nsP 00360 
nSPfl0370 
Dspoiueo 
DSP(HI390 
nSPOdAOO 
OSPOfiAlO 
OSpOOAPO 
nspo.x.30 
DSPnOAAO 
DSP 004 50 
DSP00460 
OSP00470 
nSPOOARO 
DSPnOARO 
nsPnosoo 
DSPflIlSIO 


. _ DSPOOSSO 

NOT OROIIMO TRUTH PERFORMANCE OSP00660 


TSTKFV 

TRNKFY 

CONTINUE 

THRSKY 


DN A PER FIELD BASIS. 

NOT TEST FIELDS wFRE INPUT 
FfOT TRAINING FIELDS ARE TO 


THHESHULl) KFY 

=) APPLY CHI-SOUAPF thresholds 

=p APPLY empirical Thresholds 
=3 APPLY usfr-input Thresholds 
=4 apply fisher distribution threshold 
=0 NO ThhESHOLDING 
KFY FOh printing stats from mAPTAP 
FmPIRICAL THriFSHOLOING FLAG 

DSEH-KiPUT thrfshold value flag 

FLAG For printing CUMMULATIVF histograms of (3UADRATIC 
FORM. 

HMFL6 - FLAG INDICATING WHETHFR OR NOT A B-MATRIX RAS 
APPLIFO IN CLASSIFY. 

NO, OF LINFaR rO(^«lNATlONS IN fl-MATHIX 
W). OF CHAi(NFLS USFD IN COr^PUlING B-HATRU 


STATKY 

Ff<PTRS 

ThHSVA 

PLTKEY 


BMCOHH 

RMFFAT 


DSPOOS70 

DSPO'JSHO 

nsPoospo 

OSP00600 

0SP006I0 

OSP0O6PO 

OSPOdbSO 

OSP00640 

OSP006BO 

OSP00660 

OSPO(IG70 

DSP006BO 

OSP00690 

OSP00700 

DSP(U)710 

DSP0n72O 

DSPn0730 

D5P00740 

OSP007SO 

0SP0R760 



fi LFVFL 


0SPL4Y 


DATE = 76336 


0O/55/«;q 


PAGE 0002 


FH-F iiFPl.Ar 


nonh 


0007 


Vw 


noon 


c« 

c» 

c» 
c« 
c* 

c» 
c« 
r« 
c« 
c« 
c* 
c» 

Co 

c® 
c» 
r* 

c« 
c 
c« 
r» 

Co 
Co 
CO 

r» 

L* 

CO 
CO 
C« 

r» 

CO 

Co 

CO 
CO 

c* 

C* 

c* 
c» 
c» 

fo 
CO 

c« 
c* 

CO 

c« 

CO 

c* 

r« 

c* 

t« 

r« 

CO 

CO 

CO 

CO 

CO 

co- 

co 

CO 

CO 

CO 

C* 

c* 

t o 
CO 
C* 

C« 

C» 

CO 

C1.FMD 

CO 

C* 

CO 

C» 


21 


COAlf 

FLDSV2 


F1EL02 


continue 


VE07V? - 
FL0SV3 - 
FTELOI - 
VFPIX3 - 
PCTI03 - 
ThPcS - 
SYMOTX 

HIGn 

CON 

FLOKFY - 

ilOFlO? - 
NOFI 03 - 
nOFFT? - 
FETVCF - 
NOSU32 - 
MOIFFB - 

TOTVT? - 
N0CLF2 - 
haTI.O - 
CONTINUE 

NOCaT - 
FILTFrt 


OaTE of CLAS31F1CAI10N 

ADOPFSb IN «AHi>AY» FOM TRAINING FIFLO INFORFATIOM, 

Fi'R FACH IPAINiNfi Fieo « PlfCtS OF INFORMATION ARE 
STOREO - l=FIFin NAME 
• f>=rLAss NO. 

3=SUoCLASS no. 

0=J0. OF vertices 

AUOPfSS IN fAMi.0Y« FOR RtCTANGULAft AREA SURROUNDING 
FACri Training FIFIII, FOk FACm TRAINING FIELD 5 PIECES 
OF IhFNRMAriON AAF STORFO. 

!=| IMF START 
i-\ IfiF FMO 

3=SAHRt F start 
4=SAmPLF fno 

S=P0I.<TfP I Jiu vfhtex array for vertices 

OF Tril*; FIFl 0. 

anPFSS IN • ARRAY* FOP TRAINING FIELD VFRTICES. 

SAPE AS flosv? for test fields 
SAMF AS FI«ID? For test FIFLnS 
same as VFPTX? Fop TfST FIEIDS 
AORPFSS In* array* FOR PERFORMANCE TAPLF. 

TNwfSHijLO 'MUIFS 

SYMfiOLS FOR 'FACH SORCl ASS* PLUS THFfESHOLO SYNbOL 
AND OUTLINF SYAROIS. 

Threshold PFjFcTtoii pfhcfntagf - fmpirical option 
constant factor from PRObARILITY density function 
FROM classify. DNF F0« EACH SUhCI ASS. 

FFY INOICATlNf. rHFThfP GRDUMl TRUTH FIFLDS ARE 
ASSOClATfcO ■.ITH Cl ASSFS oR SUHCLaSSES. 

HO. OF training FI FI os 
NO. OF test FIFLDS 

NO. OF CHA'GiFLs USED IN CLASSIFICATION. 

C'iaNrFLS HSfO in Cl ASSlf ICATION. 

no. OF SUhCLASSES USED IN CLASSIFICATION. 

NO. OF G-<0.HI1 truth EUunS FOR AHICH PERFORMANCE 
TAHLFS wUL me MAOF. EOUaLS NOFL03 OR AOEL02. 

TuTAL NO. OF VEhTICFS FOR TRAINiNO FIELDS. 
r-0. OF CLiSSFS USED IN CLASSIFICATION. 

CLASS - CATFGOPY CORRt SPU nOFNCL VECTOR 

(aaTNOU)®-' aFANS CLASS I IS IN CATEGORY M) 

NO. OE CaTF-jOPiES. 

FLAG Fur spatial filtfring option. 


MAPEViT - FORMAT FOR OUTPUT ‘>AP TAPF 


DFSAFY 

oesu'ii 

OeSOTH 

CROP 

ACROP 

AI'TmER 

ATOTAL 

SITF 

anaLYS 

CAMS 

CRPKFY 

AFPPTS 


DSP00770 

DSR0O76O 

DSPD0700 

nspooaoo 

nspo'ihin 

nspflOMpn 

Dspoonso 

nSPOOHAO 

DSPnonso 

nspoiipon 

DSRDOHTO 

uspotinno 

DspnoMoo 

nspni'pon 

uspooRlo 

0SP|)(iP?0 
OSP0OR3Q 
nsPo'iPAO 
nsPO'iRSO 
nspi)'<9G0 
nSPOi'970 
OSPOPPPO 
DSPonspo 
OSPOIOOU 
OSPOIOIO 
OSPIH020 
DSP 1)1030 
OSPOIOAO 
USPIU050 
DSROI060 
DsPI)|07O 
OSPIHOHO 

nspoiooo 

DSP All 00 
OSPOIUO 
DSPOllPf) 
nsPni 130 

OSPAl ISO 
nspoi ISO 
nspoi iho 
f)SP0ii7n 
QShOIIPO 
OSPOllOO 
DSP01200 
DSP01210 


KEY INDICATING whFTHFP OR NOT liESlDNATFD E'lELOS WERF INDSPOlPPO 
NO. FO« DESIGnaTFD UnIDEnTIAmLF (N0SUh?*SI fiSP0l?30 
SO. FO« DESIGaaTFD other ( Ai(ISUrt?*F.) OSPOlPAO 
NAVE OF CROP FOR RHICH INTENSIVE TFST SITE SUMMARY DSROlPSO 
PFPIIHT IS TO PF PPIMTFO. CROP IS TO PE COMPARED WITH OTOSPrU2fcO 


ACRFS of 'CROP' - USER INPUT 
acres DF 'OTHER* - USER INPUT 
TOTAL acres in Cl ASSTFIFU SFGHENT 
Nf«F OE SITF (CLASSIFIED SFGmENT) 

NAVE OF auAi vsr PFRFORHiriG STUDY 
NAVF OF PmOCEOiIRF CDne IGUWATION OSFD In STUDY 
KtY FOP GVNFRATU*r. INTFNSIVF TEST SITE SUMMARY RFPORT 
total nUmmFR PlxFLS IN E’aCh SUPCLASS 

? 

DOTKFY - KEY INDICATING .hFTHER OR NOT DOT DATA CLASSIFICATION 
PFRFOraANCF SUMMARIES ARf TO RE PROCESSfUS DOTKFY ^ 0 * NO DOT 
DATA PROCFS'-KIG E DOTKFY .GT, 0 . DOT PERFORMANCE SUPMAPIFS 
ARF PHOVIDFO ( IE nOTFpR = 0 ) , 

OOTFRR - FLAG INOICatiMG THAT IHF DOT DATA PROCESSING VTCL BE 
OISCDHTIMIFO OUF FITHFR TO OISAGRFEIHFNT OF LaHFLFO VS 
CLASSIFICATION CATFGOJY NAMpS* UR ERRONEOUS PaRAmFTERS ON 

ootfilf control Card . 

COnT 1 *Ut 


SE1UP3 RILL PFAI) FIRST ? RECOROS FROM MAPTAP, AND CALL RE0IF3 
TO read in control Cards, all of the parametfrs in common block __ 

OISPL ARE INITIALI7E HFFOKF RETURNING TO THIS KQUTINF IN ADOITION DSPOIS20 


nspt)i?7o 
DSP012MO 
nspftiPso 
OSPOl 300 
OSP01310 
DSPnl320 
DSPA 1.330 
OSPOI3AO 
Dsponso 
OSP01360 
OSP01370 
OSP013P0 
nspni39o 
OSPOIAOO 
OSP01410 
DSP0U20 
OSPONSO 
DSPtllAAO 
ospouso 

DSPA14GI) 

nsPniA70 

nspouno 

OSPOlAPti 

nspoisoo 

DSPOISIO 



FOS^TRaV IV « LtVFU 


0SPL4Y 


oare S 78?3ft 
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FILF r-SPLAY 


0009 

OQin 


0014 

0015 
001 A 
0017 
001 *< 
001? 

O0?0 

0I>?| 


002? 


0027 


0026 

052= 

on?A 


0027 

on?R 

0029 

ntno 

0071 

007? 

0033 


c* 

c« 

r 

c*** 

c 


T2AIOING AND/OR TEST FIELD DEFINITIONS WILL RF STORED IN •ARRAY* 



C» 


C* 


C* 

5011 

C* 

r 

E*«< 

C 



5012 
001 3 

r* 


c* 


c* 


c* 


c« . 


This ADOEO oh CHANRFD NOV. 13. 1978 TO INCLUDE LIST PROS. 
RFAL alP(?> 

CALL SFTIJP31AHRAY.T0P.LISTSV.GTUNIT.6TFILF.AIUN1T.A1FILE. 
» PPIIMIT.PPFILE.NANFCT.ALPI 

nSPLYl VILL HFAt) NFXT 2 RFCORDS FROM MAPTAP ANO PRINT THE 
STATISTICS IF MEOUESTEO. 

Call osplyi 

COOE Aooeo NOV. 13.197R TO InCLUOE list PROCESSING 
IF <1 1STSU.NF.0I fiO 

IF1FSPTRS.NE.2.AN0. PLTKEY.nE.UGO TO 30 


FnThuS COhPUTFS and PLOTS THE HISTOGRAM OK THE 
FOP THF CORPKCTLY CLASSlFlEtl PUFLS VITHIN THE 
FIFLOS. 


quadratic form 

TRAINING OR TEST 


10 


IF ( tjOTKhV .GT. 0 .OR. 
IFIFLDuEY.FO.DGO to 10 
NHl It lA.mo) 

NO TO 30 
rOOTTN'ilF 

IFITsTsEY.EO.DCALL 


DOTFRR .GT. 51 GO TO 30 


IFITSTkEV.NF.UCALL 


C- 

r- 

c~ 

c- 

c- 

c* 

c* 

c* 


30 COHTt-.UE 


ErtTHRS<ARHAY(FLDSV3) .ARRAY1FIELD3) . 

arrayivfrtaii .NOFinat 
EMTHRSIARHAYIFLDSV?) ,AHRAY1FIFLD2) . 
array (VERTX21 .HOFLD21 


TFST 

CALI 


ThftSKY = 
FOIST TO 


A FOR 
COMPUTE 


FISHER F-niSTHIhUTlOM THRESHOLDS 
AND STORF thresholds 


C* 

c* 

c* 

C* 

c 

c»«* 

c 


c* 

C* 

C* 


IFITMHSKY.FO.A) CALL FOIST 

OSPLY2 PRINTS THE MAP AND CALLS PCT TO 8U1L0 PERFORMANCE TABLES. 

CALL DSPLY2(AORAYlFLf>SV2) .APRAYIFIELO?) . ARRAY <VF RTX21 . 

» ARRAY (FL(1SV3) .APRAY1FIFL03) . ARRAY (VERTX3I . 

» ARRAY tPCTins) .LISTSW.GTONIT.GTFILE. 

• A1UnIT»AIFILF..RPUMT»PPFILF.NAMECT»ALP1 


IF DOT 
TABLES 


OAJA 

WERE 


PROCESSING WAS RFOUfSTEDt 
performed in 0SPLY2 


THE PERFORMANCE 


CODE added now 13.197R TO lUCLOOE LIST PROCESSING 


IF 

IF 


IF ILISTSV.Sf .0) GO TO 
tmnERR.F'J.l) toO TO 99 
inOTKEY.OI.OI GO TO 99 


99 


PPTPCT prints THE PERFORMANCE TARLES 


PRTPCT I ARRAY <FLl)SV3l . ARRAY (PCT ID3) .N0FL03I 
PRTPCT (ARRAY (FlOSV?) .ARRAY (PCT ID3I .NOFLD21 


IF (TSTKEY.FO.DCaLL 

ifitstkey.nf.dcall 

99 W«ITF(A.6050J 

6000 FORMATllHlSX.* .so** DISPLAY COhPLFTFD *»»•*•///) 

105 format (2* •"DISPLAY** - FIFLOS MOST BE DEFINED FOR SUBCLASSES 
* EMPIRICAL THRESHOLDS*/) 

RETURN 

END 


OSP0I530 
OSPOlSAO 
DSPOISSO 
DSPO1S60 
DSH01S70 
DSPOlStJO 
OSP0IS90 
OSPOlftOO 
DSPDIOI 0 
OSP01620 
DSP01630 
DSP01640 
0SP516S0 
OSP01660 
DSWOlhTO 
nSPO16«0 
DSPO1690 
OSP01700 
nSP(ll715 
DSP0172Q 
0SR01730 
OSPOl 740 
DSP51755 
OSP01760 
DSP01770 
DSP01780 
OSPOl 795 
OSPOl BOO 
DSPOlMlO 
OSPOl 520 
DSP0IB30 
nSPOlHAO 
Dspoiflsn 
DSP0IP6fl 
nsPoi87a 
OSPOlHHO 
DSPOIH90 
OSP01900 
DSP01910 
OSP01920 
DSP01930 
PSP019AO 
DSROIRSO 
OSPOl 960 
DSP0197D 
DSP019R0 
DSP01990 
DSP02000 
DSP02010 
DSP02020 
IJSP02030 
DSP02540 
DSP02050 
DSP0U060 
DSPO2070 
OSP020HO 
OSP02090 
l)SP02\00 
DSP021 15 
DSP02120 
OSP02130 
OSP02140 
DSP02150 
FOPOSP0i;16O 
DSP02170 
DSP021B0 
OSP02190 


O 

S 

l~V I 

*>. I 

><■' fc 



E.5 SOFTWARE SUBPROGRAM NO. 5 (LISTSM) 

Subprogram LISTSM has been added to the EOP-LARSYS DISPLAY 
processor in support of LIST processing. It reads the ground 
truth, AI and/or PPTC dot files, prepares CCIT outputs of AI , 
PPTC, and/or ground truth vs machine classification results for 
Type 1 and Type 2 dots, and computes proportion estimates with 
correction of the selected category for all these cases . 

E.5.1 Linkages 

LISTSM is called by DSPLY2 . It calls LISTLC, LISTPR, and the 
EOD-LARSYS utility error routine CMERR. 


E.5.2 Interfaces 

LISTSM has included labeled common blocks /LISTMM/, INFORM/, and 
/DOTVEC/. 


E.5 .3 Inputs 
Calling Sequence: 
Keyword Dimension 

TOTALS 66 


TTOL 66 


PCTAB (209,1) 


In/Out Description 

In Total number of pixels 

in each subclass 
including DO, DU and 
thresholded, in the 

' classified field 

In Total mombers of 

thresholded pixels 

from each classification 

subclass 

In . Subclass nrunber of each 

of the 209 pixels in 
dot position by machine 
classification after 
thresholding and DO/DU 
editing 
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Keyword 


Dimension 


LISTSW 1 

GTUNIT 1 
GTFILE 1 
AIUNIT 1 
PPUNIO? 1 
PPFILE 1 
NAMECT 1 
ALP 2 
FLDCNT 1 


NCAT 1 


CATNM (61) 


SUBCAT (60) 


NFLD2 1 


NSUB2 1 


In/Out Description 

In See Subsection E.1,3 

for description of 
these LIST variables 

In 

In 

In 

In 

In 

In 

In 

In Count of fields from 

MAPTAP. If =1, read 
all dot files for 
initialization 

In Corresponds to NOCAT 

in /DISPL/^ number of 
machine categories 

In Corresponds to CATNUM 

(61) in /DISPL/, 
category names 

In Corresponds to SUBCAT 

(60) in /DISPL/, map 
of subclasses to 
categories 

In Corresponds to NOFLD2 

in /DISPL^ set =207 
in LIST 

In Corresponds to NOSUB2 

in /DISPL/ number of 
regular subclasses (not 
including DO/DU and 
thresholded) . 

/ 
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E.5.4 


Outputs 


N/A 

E.5.5 Storage Requirements 
13744 

E.5.6 Description 

Subprogram LISTSM has been added to the DISPLAY processor in 
support of LIST processing. It reads the various dot files, 
prepares CCIT output subsequent to printing, and compiles 
proportion estimates for Type 2 dot sets. 

E.5.7 Flowchart 
N/A 

E . 5 . 8 Listing 
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'■ILP: LESTS^l Fl>PT^'aN A 


\ 


. *]5TS«<T0TALS.TTnL.PCTAH,LI‘>TSrf,r,TIJMIT. 

t F.P-^ONTT.PHFlLFtNAHFCTtALP, 

I* 5»:;;::ri"^[F*2WJ^^Frj(or^ti§ p-^ocfssing 

'• I) I'> Tip nfSIti^ATEil NAI'F 

• '•’f 'SPALL OPAINS « TATEGORY 

* THt ClTFf,f>rv CL1SSIFIFP 1USY HAVE HFfH INVOKED 

•NAMPfiA(?0<i,3,?),LINP'iA(2ft9#3f2) t 
^ >* •liOTLAH(2n<),«,^) «VPGA (31 . IPRA 

I'lrLHOh 

I'.ri lire rowt-Ki 

. 9f)r‘y'‘^'.^':f';;'';;!''l.'9!?S'’i'^'>^'>^<^’'^"f^T2.VARS72fTOTvT2,NOFLD2* 

* AVA.t?.C!)Vf>(?.CL‘5to?t':uHnn?,soHniiP.FLnsv?tVFRTx?. 

* FFTvrpoo) t*;t»-VC?(7H),S((P“TR(7R>.CLSVC?lfin> . 

« Ff-HPrc (A')J ,NORkP, 6PPNA1(RO) *GKP0FX (Kl ) . 

e GPPfH-> (<, 1 ) ( 1 ?t) 

< tNOrAT*TorvEC.FLOINF th> f 

_ •' rr* I r r Y • 'j J f LAC I r 
D 

niHF jCJoN M P«SM3) 

ruTA SY .iT>^>»/*o*/.SY'10FS/» */t SYMOUT/* •/• 

* P‘’Cll/»"'/,Ppcn/'H»/.08CD/»0*/.HUANK/i t/, 

* A(Pf'Sfi/»HPC •••i>T •»»Al •/ 

' OJPFN'ilflN TTOL (1 UPCTAriin .CATNMtl I .SUHCATI 1> t 

•PlxT0T.PntPI2,Pel,PB2tPtCATTOT(6ll 

Ci/Ut jMff 

IF (FLOf ■jT.GT.I) go TO 400 

** iNiriAl I7F IF FIRST FIELD TO HE SUMMARI7FO 

no Id I = 1,3 
no 10 II = 1.? 

NPRAd.Ill = ffl 
oo ?(i T = l»? 
no ?.> II = 1,3 

no Prt III = i ,?«9 
NAMF,.A(in,n,n = hlank 
noiLtp(iii,ii,n = rlank 
CONTINUF 

qP.M) IK PPC GT At FILFS 

A'-SHt'F TrPt 1 A(«D 2 ON SAHF UNIT BACK-TO-flACK 
IPI,A = 0 

IF (PPu.,lT,FU.O) GO TO as 
jPGA = lPi,A * 1 
VORAdf-RAI p 1 
IF tf,TU\IT,FO,Gl GO TO 30 

IPGA = IPGA ♦ I 
VP(>AdPfiA) = 2 

IF UIUMT.FO.P) GO TO 3S 
I^GA — IKoA ♦ 1 
VPtjAdprA) = 1 
IF 1 1 PGA. ET. A I CALL CMERR 


I'IFU (Tdl 

INFFIl d 1 
I’JFli-.T (F) 
I' FF U (2) 
INrUfiTdl 
INFULOI 


PPUNIT 
PPFII F 
hTUMT 
GIFILE 
aTiinTT 
AIFILE 


O') UlO I = l,IPRA 
ISIT = VPGAII) 
loT =n 
STAmrT = 1 
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FJL'’* LI'iT'JM FO>«Tf<AN A 


~'N 


TY*"e. = 1 
(lOfAT = 0 
iiOFin? = 0 
TOTVT? = 11 

T'.rvFC = 0 

SwffHi = 0 
IMIT = i> 

r*lL LlsTl.rfFrFLOSt*^TAMNTtM30.U4D.MSO.SWC«Gt 
t.UT. rNFUNT <ISITI f ItJFFR<ISIT) »I*»T.VFRTEX) 


nn , 'jp.-Ancjr.TVFFj = noflu? 

Nf'-i'C.'MSfH '■>-»itSlT*TYPf I = FtFLO‘;(\»NOFLn?l 
M'FI.''P.lsrT,T¥Pt> = FLOIMF(I) 
qiP-hA ( »tlFl,M-*.|SIT,rVPF> = FLnIhFIAl 
110 = n'-piFin/io 
ino i: Fl. 1 , 1 . F (»1 /lo 

j = (Tin - n»i«, * mo 
(irtTi APlJiISITiTyPEI = F tFl.nsn tNOFLD?l 
on TO 110 
r 

r»** iior lypF chunge 

r 

IMS M>rt '? = fl 
(>n 10 !iii 

r 

r«»» jr >'(0 CaiO lI'Akf nCTECTfO 

c 

l«?fi Cfi (T loi.r 
1 t>o COM r I Mue 

c 

(■*•• PCTJrt STOPEn IM OOnEH OF FIRST LIME SECOND LINF ETC. 

r 

A no f(SO. 3 = iSllB? ♦ \ 

= MS'tPP ♦ A 
(|SU “7 = (iShRP ♦ s 
00 ^T(S I = I.mFLO? 

SllMCu = ^CTArid) 

IF («iIi-.CL .nT.n) OO Til AOS 

noTi rp( i,*,u = symout 

<jo rn 

Ans IF (SII-CL.LF.NSIJP?) GO TO 410 

IF (Mt-CL.F‘<.NSIHT) OOTlAHdtAill =SYMTHP 

IF (Sii CL,rr.mO‘'S.OR.SUHCL.EO.NSUfi 7 ) OOTLAailiA.ll =SYMDES 
(.0 Til »?n 

Ain CAT = fuHCsT ISlIwCI. 1 

rsoTi API r,A.i ) B catn'-iicati 
APIS 0 Hi 4 M< 1 , 4 a 2 > = nOTLAdU* 4 . 1 ) 

A 30 rOAlIF'ofc 

r*»* Cl'MPUir TOTau NUMRFR of CLASSIFIF .0 DOTS 
c 

PfXTOT = 0 . 

DO AAO I 3 l.OSUR? 

440 PI»TI)T = PIXTOT ♦ T 0 T 4 US 1 II 
r 

r*«« rilMwiiIE total mo, of pixels IN EACH MACHINE CATEGORY 

r»A» COO' T UP PIXELS OF CHOSEN ANO OTHER CATEGORIES 

r 

PMACHlil = l>. 

PBArHI/i) = 0 . 
on 44 S I = 1,61 
44 S CATTOTt!) * 0 , 

no ASO I = 1 .NSUH 2 
CAT = SOttCATlI) 

CaTTOTICUl = CATTOTlCftTI ♦ TOTALS(I) 
nuM = pAiMMiCiTi 
IF 1 0U'<,NE.NAFiECT) GO, TO 448 
ICAT = CAl 

P"ACH(t» = CATTOTICATI 

HO TO aSO 

AAA PH 4 fHI-»l = CATTOTICATI 

ARO CumTINOE 
CPT 4 S 67 B 0 

r*«* nfaT = MS. OF HACHINF CLASSIFIFO CATE60RIFS 
C««* ICAT 2 CATEGORY NUMBER OF PREFEHREO CATEGORY 
r?34S67F9 

PUACHCIl = PMACHin/PIXTOT 
PMACH (?1 3 PHACH 121 /PUT 0 T 
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LISnoGOQ 

Lisoonio 

LISlSOHPO 

L1SO11830 

LIS00840 

LISOOPSO 

LISOOfiGO 

LISnOPTO 

L^sn(l^Ro 

LlSOdbArO 

L isoflsno 

Lisnnsio 

Li'i'snspo 
LIS 00930 
L ISdOAAO 

LISOORFO 

LISOOPMO 
LISUISATO 
L1SOH9SO 
Lisisnypo 
Lisoluno 
LISOlUlO 
LISOIOPO 
Llstilflio 
LIS 01040 
L ISOlUSO 
LI so I OHO 
L 1 S 01070 
LISOIOAO 
L 1 S 0 T 03 Q 
LlSfil 100 

Lisniuo 

I isni i?n 

l ISOl 130 

i isni 140 
Lisnuso 

LISIM 166 
LIS01170 
LISOTIHO 
I FSOIIPO 
L I So I POO 
LlSinpin 
LlSfil2?0 
LIS01P30 
LIS01240 
LIS012SO 
LISOI2,.0 
LiSOlP/O 
LIS012A0 
USOIdPO 
L1S01300 
LIS01310 
LIS013P0 
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I j 

= > ''’If‘'U'^”,DOTLABtlTVPC> 

•EO.OI GO TO fiOO 

^ CfLI. LISTPPdSIT.OOIl A^n.li2>«lTVPF) 
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nd'4 a 
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IF (|1|I'4.F I.SYi^IdP) GO TO 514 
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= 14 CO’iTlMiig 
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r 

p*«» 

c 
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c«*« This PIXEL rf#S L4HELEU BOUNDARY 
C 
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N2? 
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VS machine CLASS') 
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P ALP M 
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E,6 SOFTWARE SUBPROGRAM NO. 6 (LISTPR) 


Siabprograin LISTPR hag been added to the DXSPIAY processor of the 
EOD-LARSYS system in support of LIST processing. It outputs 
the CCIT-type reports of GT, AI, and/or PPTC dots vs machine 
classification . 

E.6.1 Linkages 

LISTPR is called by LISTSM. It calls no other routines. 

E.6.2 Interfaces 

No common blocks are included. 


E.6 . ? Inputs 
Calling Sequence: 

Keyword Dimension 

ISIT 1 


DOTLAB ' (19,11,4) 


I TYPE 


1 


In/Out Description 

In Type of CCIT report 

=1 PPTC vs machine 
=2 GT vs machine 
=3 AI vs machine 

In Dot category names 

19 sample # 

11 -V line # 

4 ^ PPTC 
GT 
AI 

Machine 

In Dot type, 1 or 2_^to 

be used for this 
output of CCIT report. 
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E,6.4 


Outputs 


E.6.5 Storage Requirements 
1444 

E.6.6 Description 

Subprogram LISTER outputs the CCIT—type report comparing PPTC, 
or AI category name vs machine classified name for Type 1 or 
Type 2 dots . 

E.6,7 Flowchart 
N/A 

E . 6 , 8 Listing 
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F'l'lT I*IUF 
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Lisnoolo 
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E.7 SOFTWARE SUBPROGRAM NO. 7 (LISTLC) 

Subprogram LISTLC has been added to the DISRIjAY and DOTDATA 
processors of the EOD-LARSYS system in support of LIST processing. 

E.7,1 Linkages 

LISTLC is called by subprograms LISTSM and DOTS. It calls subprogram 
NUMBR, EOD-LARSYS utility routines FSPMSL, and NXTCHR, and the 
Fortran re-read routine REREAD. 

E.7.2 Interfaces 

Subprogram LISTLC has included labeled common blocks /INFORM/ and 
/DOTVEC/. 


In/Out Description 

Out Information concerning 

dots indexed by NOFLDL 

(1, ) = category name 

(4, ) =2 (# vertices) 

In/Out Initially set =1, 

reset to 2 if dot card 
has been read and is 
being processed. 


* _ 

* « 

SWCHG 1 




In/Out Initially set =0, counts 

no. times dot type 
changes 
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Keyword Dimension 

INIT 1 


lUNIT 1 

IFILE 1 

IPT 1 

VERTEX ( ) 


E. 7. 4 Outputs 
N/A 


In/Out Description 

In/Out Set =0 initially, 

reset to 1 after 
dot files read in 

In Unit number of i^iput 

dot file 

In Relative file number 

of input dot file 

In/Out Pointer in VERTEX, 

incremented by 4 

Out Dot vertices (Sample, 

line numbers repeated) 


E.7.5 Storage Requirements 
3658 


E.7.6 Description 

Svibprogram LISTLC is similar to PLDLAC except dot files are read 
in on "initial" entry and SWCHG is included in the calling 
sequence rather than in an internal DATA statement. 


E.7.7 Flowchart 
N/A 

E.7.8 Listing 


JiOL 
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E.8 S0FTV5ARE SUBPROGRAM NO. 8 COOTS) 

Siibprogram DOTS is the principal program in the DOTDATA processor. 

It reads the input dot information, looks for spectral data from 
the MSS data file, and writes the Type 1 and Type 2 dot files. In 
LIST processing, it has been augmented to allow the user to input 
a LAC IE formatted dot file in lieu of in-line dot descriptors in 
the control card/field card stream. 

E.8.1 Linkages 

DOTS is called by DOTDAT, the driver for the DOTDATA processor of 
EOD-LARSYS. It calls FLDLAC, LISTLC , FLDTYP, WRTDOT, and EOD-LARSYS 
utility routines TAPHDR, LINERD, PDLIKT, WRTFLD, and FLDINT. 


E.8. 2 Interfaces 

DOTS has included labeled common blocks /INFORM/, /DOTVEC/, 
/GLOBAL/, and /ISOLNK/. 


E..8.3 Inputs 
Calling Sequence: 

Keyword Dimension In/Out 

DATA (SIZE, ) ,Out 

max 5000 

FIELDS .(4, ) Out 

max 1000 


VERTEX 


(_) Out 

max TOP — 6 0 0 1 


In 
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Description 

SIZE = 4 + NOFET2 
Storage for writing 
dot data file 

Field information for 
each dot 

(1, _) Category name 
(4, _) 2 # vertices 

Vertex information 
(line + sample number) 
for Type 1 or Type 2 
dots 

ARRAY blank common 
storage size, currently 
= 10600 


TOP 


1 



E,8,4 


Outputs 


E.8.5 Storage Requiretnents 
43690 

E.8.6 Description 

DOTS has been modified to support LIST processing in the following 
manner. The /DOTVEC/ variable LACIE can now be a unit number 
(>1) as well as a Pi switch (=1) . If LACIE >1 is encountered, the 
new routine LISTLC will be called to read a dot file Pi in-line 
LACIE dot cards or FLDTYP in the case of field-formatted dot cards) . 
Two new variables INIT and SWCHG have been added to help with 
determination of the initial call to LISTLC. 

E.8.7 Flowchart 
M/A 

E.8. 8 Listing 
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A0n3 

AdOA 


nooa 


OOftA 


non? 

OOdH 


pon'> 
oni-n 
nni ! 

nni3 

nol3 

nCilA 

nol5 

oniM 


nni 7 
OfUn 
nO\a 
no’d 
novl 

no?? 


no?7 

no?A 

no?a 

no?*- 

nnpn 

00 ?*) 


0030 

noil 

003? 
ntm 
003A 
no3‘' 
nniA 
0 017 
OOIH 
00 O'* 

00*0 

00*1 


C 

c 

c 

c 

c 


CiFND 

C 


C 

C*oo 

C 


nvns IS The cq-osoinotor for creating thf oot data file 

S< ikhouT IHF OOTS 1 0 A T A , F I ELDS » VERTFx , TOP I 

I*>PLlCiI INTFPFR lA-7) 

liinFN'ilOw omA(Sl7EiU ■.IOaT AUOOOO) 

nidFNSlON FIFUlS14.1)» FL U?) •VEHTEX(l) 

INFLllOF CO‘f«Al.LIST 
iacluhf cohhk6,list 

iNfLUilF C«RKI4,LTST 
INFLUOF. CMOmO.LlbT 

COMMON/ INFORM/NyruS?*NnS0R?.N0FFT?«VAPS7?i TOT VT?»N0FLD2t 

* 4VAR?.cnvAW?«ClSIf>?»SUHiK>?.SUHr)S2.FLn5V2*VERTX2« 

« fFTvr2<3«l»SOPVC?17Sl tSORPTH (7S> ,CLSVC2lhO) t 

* KtPpTMOnlfNUOPPtpRPNAMlOO) tGRPOEX (ftl) t 

» GRPCMA (01 1 ♦GROUPS (l?4l 

rOMMON/GLOflAL/KF Ai>(63) ,M4PT AP ♦ D4 TAPE , SA VTAP, hMFTLE .KMKtV ♦ 

• HISFIL^mISaF Y fTPFnRMtFRlPTPf tPPKFr^MAPUNT^NOFILet 
« nPU'1AL).nRMN(jb,PAriR(7filATFJL^STAF ILt ASAV ♦ ASAVM. 

« ♦NMSTUNtNMSTF [ tSrTPiJfUOSPFIL 

• ♦nOlUNI ♦nOTFIL ♦nCnrAS^TPNSFLvUMTRFLiHlSTFLtPrHUNTi 
A CRI)<INT»PRTllNr»PAMniO 

COPMCl'i /iiOTVFC/TYPFfCM'IAF (G0> .NOCAT ♦TOTVELfFLOlNF to) ♦PRTKEY 
"common/ ISO! NF/SUNANG(M)?ISoNTfISlMC^SMSTR*SMSTP#SMINC^LINSKP 

DATA nLANM/* ♦/ 
flOSUN = H 
TSIPNT = 1 
JMiNC = 0 
ST&MNT = I 
S^fCrt = 0 
IPT = 1 

iFILACie. ♦E.0> IPT = 0 

roDF AODED NOV 21f 107fl TO SUPPORT LIST PROCESSING 

INIT = 0 
?F'«) = 0 
SMCHG = U 
NOCAT = 0 
NOFLD?=0 
TYPE = I 


on 


INITIALIZE image data TAPE 
CALL TAPMORIOATAPEtDATFILI 


00 AO ]=ltS17E 
00 pO J=UT0TVEC 
flfl OA(A( I<J) = 0 
r.irvT? 3 0 
torvff ■ 0 

HS IFILACIF.FO.DCALL FLnLACIFIt'LUStSTAMNTf4lO0f4SlO*fcS20.IPTf 
«VFPTFX> 

C»*A AODFO NOV 21 t 1078 IN SUPPORT OF LIST PROCESSING 
C 

IF ILAC1F.6T.1) CALL LI STLC (F lELOSt STAMNTf4 1 OOf 45 10* 

* 4A?OfSWChGflNlT,LACIEf7FRO.IPT^VERTtX) 

call fU)TVP(FIELOS^STAM''lT^M00t45l0^4S20tIPTfVERTEXI 
C 

100 LIMSTR = FLOINFII) 

LlUEiRi = floinf:?) 

LINING = FLOINFIS) 

SapsTR = FLO INF (4) 

SAMFNO 3 floinf (S) 

SAMINC = FLO|NF(<=.) 

FIFlOSIP.NOFLOP) = NOCAT 

T0TVT2 = FItL0S[4tN0FLP?l ♦ T0TVT2 


ILINE 3 ILINFNO-LINSTHl/LINIMC 
NSAMp 3 ISAMfNO-SAMSTRl/SArllNC 


OOTOOOIQ 

0OT00020 

OOT0OO3O 

OOT00040 

'flOTOOOAO 

nOT 00060 

OUT 00 070 
noTonoho 
OOToonvo 
noTooioo 
ooroi'iio 
miTonipo 
noTonno 
DoToniAo 

UDTOmSO 

noTooiNo 

OOTODirO 

ooTonmo 

OOTO'llOO 

nriTOOPOO 

OrjTOOPlO 

noToo??o 
nOTOOPTO 
flOT0«i?4O 
noioo?so 
Dl)Tnil260 
noTonpTO 
OOTOoPAO 
noT00290 
OOT 00300 
nOTO(13iO 
ni)T0l)3?(l 
flOTnc)330 
Out 00340 
nurnoiso 

OOT07360 
POT 00370 
DOTOolPO 
oorn.1300 
1)07004 00 
00100410 
OOT0O4PO 
f firno43o 
noTn-1440 
nmni‘4Si) 
Out on 460 

DOT 004 70 
00100460 
r)OT00490 
ooiomsqo 
OOT 0 Olio 
flOTO'iSPO 
00706530 
oorooSAO 
llOTnnRvn 
00100560 
OOTOI.670 
OOT005HO 
OUTQOSSQ 
DO! n 0600 

OUT 0 Ohio 
OUT006P0 
OOT00630 
OOT 006*0 
OOT0O650 
0OT0(>660 
0OT00670 
flfiTOahaO 
OUTOiit>90 
00700700 
00106710 
OOTOOTPO 
007 011730 
OOT00740 
nOT00756 
O0T0O76O 



FO&TOa»( tv G UevfL ?1 


POTS 


DATE = 78338 


to/on/o« 


CAGE Q002 




FltF rPTS 



c 


1*05171010 IHSGF TAPF FOR THIS FIELD 

OdTOOTTO 


r 



D0TO07P0 

004^> 



CALL FLOINT (FLOINF 1 1 » .FETVC?.N0FET21 

O0T0O7RO 


r 



fiOTOoHno 


c 


READ A SCAN LINF OF OATA AND HflOCESS IT 

DOTOiiHlO 


c 



CiOTOOBPO 

no^*^ 



no SOfi LINF=LlNSTRtLINFNn*LJNINC 

P0T0('830 

00<i4 



NLINE = NLINF ♦ 1 

Pi'TOdSAO 


c 



llOTOOHSO 

004^ 



CALL LINfRniinATA.FNDTAF) 

DOTO08S0 

on4«v 



IF ItNDTAt* .EO. -l> GO TO 60ft 

nuT 00870 


c 



OOTOOflPO 


r 


Finn imteksf fTions for n-» fields 

noTOiipvo 


c 



dotodroo 

nrutT 



CALL fOLINTlvEHTEXtlRTt .FIELDSUiNQFLOZI »FL»L1NE> SAHP,NI> 

(iGTonsio 


c 



00700920 

l>04rt 



no 400 J=i«nr»? 

OOT00910 




IM = <FL<J>-SAMSTR)/SA«TNr: ♦ 1 

00 TO 0940 

nono 



IF = <FLIJ<I)- SAMSTRI/SArflNf ♦ 1 

norooosQ 




IF (nt)DlSAt»ST>’fSAMlNa .NF. HOD IFL t J) »SAHINC)) 19 = Ifl ♦ 1 

0(17 00960 

A0-? 



IF in .GT. IF) GO TO 400 

DO TO 0970 


c 



OOT009PO 


c 



0OT0O990 


c 


Ct'LLFCTtNS INFO FUR OATA fi£C FOR OOTHL 

DtlTOI 000 


c 



DUTOIOIO 

O0«l-^ 



no 3S0 k=io,te 

DOT0102O 


c 



00T0I030 

noH4 



T )TVFC s TOTVf C ♦ 1 

OOTftlOAO 




lFtTHTVEC.LF.2S0) GO TO UO 

nOTOlOSO 




TOTVeCrPSO 

OOT01060 


c 



0UT01070 

nOC7 



k..rTF(4.tnA) 

ooToioao 


lOB 

FO-i-AATI ////) 

noroinoo 

OrtSQ 



kRlTFIA.lOA) 

00101100 

no/iO 


lOG 

Fl)-<-*Ari2SX.**«*« NOTF - TOTVFC WAS GREATEH THAN 250. THEREFORE 

TOTOOTOmo 




1V«T kAS SfT TO 250 ♦**»») 

0(170(120 




Gti TO 400 

OfiTonso 



3in 

com 1 'lilt 

OOT01140 




DATA 11 .TOTVFC) = 5AMSTR ♦ SAHINC * (K-l) 

OdTOl ISO 

no^4 



OATAIA.rOTvFD = line 

0070(160 




r>ATA(T,TDTVFr) = TYPF 

0OTO1170 

on^-K 



liAl AtH.TOIVfO = ilOCAT 

nnroi 160 

0A67 



DO ISO I = l,i.0FFT2 

rioroi 190 

O0*“« 



K4 = (|“1)»NSAMP ♦ K 

00101200 

0ft6<j 


ISO 

DATAlA.I.TflTvEC) = IDATA(KK) 

DOTOI2IO 

oorn 


3S0 

CiinT iMIf 

0(1701220 


c 



00701230 

0071 


AOO 

COflTIi'loE 

('DT01240 


c 



fPOT 01250 

oo7;> 


son 

CO'-TIfiDF 

00101260 

007-^ 


800 

CG'IT IKlte 

OIJT01270 

0074 



A<) To AS 

OOT01280 


c 



OOT01290 


c 


WOITF nor OATA FILE 

noTOl 300 


c 



00701310 

007S 


SIO 

CALL .RTFLniFIEl DS, VERTEX .NOFLOP. 2, CATNAH. DuMHV) 

00701320 

007^1 



CALL wOIDOIlTOTvEC.NOSnN.FIFLDS, VERTEX, sunant,, Data. NOCAT, 

ODTonao 




• CATNAH,Sr7F»N0FET?,KETVC2»T0TVT2,N0FL02, 

00701340 




» nOTlNT.nOTFIL) 

00101350 

0077 



tMiTFIL = nOTFIL ♦ 1 

00701360 

007H 



.'.OCAT = 0 

00701370 

007<5 



SkTCH = 1 

0OT01380 

oo^'fl 



IF (LAC re.'vF, 01 NDFL02=0 

OOT01390 

OOf* 1 



ifiprtxfy.fo.dgo tq sso 

(>0Tftl4l)0 


c 


< So 7T> 9 0 

O0T01410 


C 


SEND Card FOllNO 

DOT 01 420 


C 



0OTQ1430 

nn«? 


s?0 

CALL WrfTFLniFIELDb. VERTEX, NOFl 0?.?, CATNAH.OUMMY ) 

(HU 01440 

Ofth^ 



CALL aRTOoT ITOTVEC.HOSON.FIF-LDS. VERTEX. SUNAnG, DATA (NOCAT. 

OOTO1450 




» CATNA'X.SI7E .NOFFT2.FFTVC2.TOTVT2.NOFLD2 . 

O0T01460 




• noTDNT.nnTFiL) 

0010(470 

OOP 4 



SkTCH = II 

nOT014ftO 

OOAS 



If (PRTKFV.F0.1150 TO S30 

(I0T01490 


c 



onToisno 


c 



OOTOISIO 


c 


RODTIKF TO PRINT DOT DATA RFCORD 

OOT01S20 





FnaxR^M IV LEVEL 21 DOTS ' DATE = 7833B 10/00/08 PAGE 0003 

FU F ''OT'! 


00-o6 

c 

(' 

COflTIMlE 

00T01G30 

DOTOISAO 

00701550 

nop7 

7(10 

FOPrAT (//> 

00701960 

on«fl 

A90 

FOMlATUXt* lvn.«i2X**S AHPUE • . 2X • • L INF • t 2X t • T VPF * . 2X * * CATEGORY • • 

DOT 01 570 


! 

1 7HX»«I)ATA*/) 

OOTOI5HO 

ooAg 


19TAPT=1 

0OT0I590 

nnwrt 


It- J|J=10 

OOTOIOdO 

ftOAJ} 

799 

rO'JTIMIF 

OOTOIMO 

nn -»p 

IKT=n 

noT 01620 



m- Bon ii=i,TQTvEC 

00701630 

no-.6 


IrvT = TKT»l 

t>OT01640 

00 4fk 


IKIFM..6T.N0FFT2) I£NO=NnFFT? 

00701650 

noafi 


IF tll.NF.l .4'<n.IKT,eo.l)W«ITE(6<B10) 

00701660 

0047 

Bln 

fO^xATIlMltBI/)) 

00701670 


IF «T^T.<^e.l) GU TO b?n 

00701650 

OOQQ 


xtlTFlA.Tnni 

0070 1690 

oluo 


vAFTF (f..69nl 

1)0701700 

0101 


w-ilTnA,7?n» tBLAW.FFTtfC?!!! .I = 1START.IENU1 

noioiTio 

nio? 

T?n 

F. (-• 4r(37*,in(M,*CH<*.I2,'l •>) 

DOT nt 720 

oio'i 

B20 

COrJTl. HF 

nOT0173U 

OlOC 

vHTF.(h.71M H. lOATAll .11) tl = l»4) . (OATA H) . JJ=ISTA»T. lEND) 

00701740 

0104 

Tin 

FORMAT! IX. I-). IH..-3X.H.TX. I4.2XiT2.bX.I2.aX.in(I3.4X)) 

00701750 

010^ 

UP1TF(^,71?» 

GOTO 1760 

0107 

71? 

FO-.MAII I 

0OT01770 

0|0A 

ftnn 

CtiNTINHF 

rinToi7«o 

01 rj'^ 

IF(O0FFT2.GT.ln> GO TO |T30 

OOT017M0 

ono 


G<J TO “40 

HOT 01 900 

0111 

970 

rONTKiUF 

roToifUo 

on? 

iF(ir»O.Fu.l) GO TO P40 

niiroiH 2 o 

oin 


IT«.’0=1 

POT01B30 

niu 


I9TAMT = lE'.D.ISTAf<T 

00701940 

011^ 


tFNn=t!OFeTP 

00701550 



Go TO 799 

007 01960 

0117 

R40 

CO'irlMJE 

nnioioTo 

r\\ft 

IF IBxTrh ,E0. 1) GO TO 90 

OOfO 1 050 

''IW 


pFTOmA 

nOT01fl90 

ni?o 


Ego 

noroi9oo 





E.9 SOFOmRE SUBPROGRftM NO. 9 (RDDOTS) 

ROBOTS is a utility subprogram in the EOD-LARSYS system which 
reads the dot files written by the DOTDATA processor. 

E.9.1 Linkages 

RDDOTS is called by subprograms FILERD, ISOCLS and SETUPS. It calls 
RDDOTl and the EOD-LARSYS utility routine FSBSPL. 

E.9. 2 Interfaces 

RDDOTS has included the labeled common block /GLOBAL/, 

E .9 . 3 Inputs 

(See the Procedure 1 manual of EOD-LARSYS for description of 
calling sequence variables) . 

E.9 . 4 Outputs 
N/A 

E.9. 5 Storage Requirements 
22860 

E.9. 6 Description 

RDDOTS has been modified to support LIST processing in the 
following way. In the past, if the calling program requested 
more dot information than was available on the DOT file, an error 
would be called and execution dis.continued . This has been 
changed. TOTDT3 is compared with TOTDOT, the number of dots on 
the file. If TOTDT3 is greater than TOTDOT, TOTDT3 is reduced to 
be TOTDOT. 

In some LIST applications, all Type 1 dots will be used as starting 
dots to ISOCLS. ISOCLS can accept up to 60 starting dots. A 
standard input dot card to ISOCLS will be set up with 60 dots. 



Then, if fewer than 60 Type 1 dots are on the DOTFILE, the 
nuinber of starting dots wiil be reduced accordingly. 

E.9.7 Flowchart 
N/A 

E . 9 . 8 Listing 
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FORt-^HN IV >3 LEVFL 21 


HnOOTS 


DATE = 78330 


09/59/35 


FRF PnO'US 


onol 


non? 

0003 

non* 


0005 

0005 


0007 

nooo 

OOflO 

oolo 


001 1 

ool? 

O0J3 


0014 


0015 

0016 
0017 


noifl 

001“ 


no?n 

oo?i 

no?2 

oo?3 

nn?4 

0fl?5 

no?6 

no?7 

oo?o 

OOJ-9 
00 00 
omi 

003? 

0033 

0034 


C3FHI) 

C 


UTtLltY ROUTINE T«AT RFAO*; THE OOTFIL 

50“«0UTfr.F finnftTSlOOTS,OOTVFC*TOTriT3*TYPS((T.SlZFSiTOTl)T?t 
» wCAT,CATNA-'«NOFfTP«FFTVC?*NOFF AT tFETVECf NOSUN* ANGLE t 

• I’.IIFL' • * TOT V“T *FL0SA V * VF« TF/ * /R VAR/ ) 

IMRLKIT lNTr:rFR(«-Z) 

(H«eM5lON «VAR<55ZF5*1) 

PF AL rtVAft 

TYP53T = 1 -Ft TURNS SPECTRAL (NFO 

TrPs*r = i -PFTuRiis spatial info 

TY“SyT =3 3 -REtllK.jS BOTH SPATIAI AND SPECTRAL INFO 

DATA RLAPK/i •/ 
ir.CLUI'F C0MPK6.LI5T 

COP«U' /iiLORAl /mFA0(63I *maPTAP *0AT APF*SA VT AP.HMF ILE*RPKEY* 

« - hI“FlL*HISKFY,TPFORM,E«IPTP*triPKFY.MAPUNT*NOFILE* 

» f>-i3MAfi,D-3R'iOS,PA(.SI/.nATF IL*StAf IL.ASAV.ASAVFL 
» .njnSTUN*MHSTFI*'>rTPUN*MA“FlL 

» ,riOHI.vT*rv)TFIL*Nrr*PAS*TKNSFL*H8TRFL*HISTFI *PCMUNT« 

CR(iU iT«RPTUNT*RAMOIO 

PI'-FUsTON FATNAtiU) .OOTVec 1 1 ) *0OTS ( S I7ES* 1 ) 

OP’FNSION FfTvFCt JO) .FFTVC3I301 tFETVC?(l) 

DImFMsION Fir.SAVlA.l) fVFRTFY (?*1),ANGLF(1) 

OINENSIOM TEPflOT (5000) 

read RFC '<0. \ FOR INOICFS 

RF*IND nOTDNT 

CRL FSHSFLIOOTUNI.nOTFIL.ISTATl 

PE AO (fiOrUHT) NOCAT. NOFFAT*NOFLO.TOTVRT*TOTnOT. NOSUN* ICATNAHIIl . 

* 1=1 .NOCaT) .S17E 

Cd-APUTF AODPFSSFS FOR ARRAY 
nOTSl = 1 

RFAO MFC. NO. 2 

IF 
IF 
IF 


(TYPSvT ,F0. II RFAn(OOTUNT)(FFTVFC( II * l = l*NOFEAT» 
(TYPSaT ,F0. ?1 RF ArMflOniNTI nUMMY 
(TYP54T ,fO. 3) RF AniOOTtlNTUFETVECdl *I = 1*N0FEAT1 
. ( (FLllSAVCl.J) *I = I*A> *J = 1 .NOFLDI . ( (VERTEX) I, J) *1 = 1*2) « 
J=1 .TOTVRTJ . (ANGLFd) * [ = 1 .NUSUN) 


IF (TyPSmT ,F0. ?) GO TO 87 
IF (NOFrl? .NK. 01 GO TO 60 

p SfT 111 ; fault CRANNELH 

no 50 T = l,f)nFFAT 
FFTVCPd) = I 
SI) FFTVC3(I) = I 
m(>FFT? = NOFFAT 
GO TO »7 

60 DO PO J=1*N0F£T? 

00 70 5=1. MOFFAT 

IF( FKVECOO .FO. FETVC2IJ)) GO TO 75 
70 COfiTINOF 

WRITF (5.A5)FtTVC2(J) * (FETVFC d > * 1 = 1 .NOFEAT) 

OS FOP*>AT(//* channel •.!?.• IS NOT ON OOTFIL*/ • CHANNELS A»E*.30 
Call C'-*FRR 
75 FFTVC3I I) = K 

flO CONTImOE 
“7 IF (T0TDT3 


C 
C*** 

C»*» 

C 


.EU. 0) GO TO 96 


CODE AODEI) NOV 21, 1978 FOR LIST PROCESSING 


POOOOUIO 

MDD00920 

Rn000030 

RDOOOOAO 

RDonooso 
PimoyOEO 
pnooiiOTO 
HOOOdOBO 
«6nofl«90 
Rooonioo 
Ponno! 1 0 
floiinoi 2 D 

ROOflillSU 

Rononuo 

PllOOOlSll 

Rononi60 

ROdonlTO 

RDUOHlftO 

PnooiHuO 

PODOOPOO 

RDDOOPIO 

RODOOPPO 

Ri>non230 

HDDn<l?40 

HoDonpsn 

R0()0fj?60 

R0000270 

BDDno 2 fiO 

Rn00n?90 

RFioooaoo 

Rnnort31(t 

PDOOilTPO 

Hoontnso 

fini)oi'340 

Riinnoaso 

Rnnno360 

ROI)Oi»370 

Rnnnu3Ha 

Riinonipn 

RDDOiiAOO 
RnnoiiAio 
Pl)[3(MK?0 
RD00'1A30 
RODOhaaO 
RDDOOASO 
RonniiAGO 
pnooi.470 
HDDOfiABO 
ROD 0() A 9(1 
RDDOOSOO 
RDonosio 
p()on-i5?o 

R0000530 

RUD0OS40 

RonoussO 
RfiunnS60 
RDOnfiSTO 
RDOnoSBO 
RDUnu590 
00000600 
ROdooolo 
RD000620 
RDI10O630 
RDFinObAO 
ROD006SO 
POO 0 11660 
!3)R00n>'670 
ROOnOAhO 
R(l|)n069<) 
RDOnOTOO 
PDDDW710 
P()00(J720 
RODO073O. 
PODOOTAO 
RFiDOOTSO 
R0000760 


PAGF 0001 



Fn3T94N IV <1 LEVfL 2! 


HnOOTS 


OATt = 7B33« 


oq/s'j/is 


PAGE 0002 


f^TLr 








IF (TOTnT3.ST.TOTOOT) TuTf>T3 = TOTgOT 

PODOOTTO 


C 



P000(l7fi0 




DC 9'5 j¥l,T0T0T3 

R0000700 




IF (l)OTVec(J).LF.TOTncT) SO TO 9S 

rudooaqo 




PftTTE(C.<)<l)nOTvEr(JJ tTOTIXiT 

rdooohio 

no3<^ 


<>0 

Fi)K«iAT(/ • DOT MO. •tlT.’ IS OOT ON DOTFIL'/ » FILE CONTAINS 

»*T3»RDnoilA?l) 




* • O'lTS* » 

PI1000H30 

no40 



Call cmfh.< 

WI10OA40 



9S 

rortTlMJE 

PODOCRSO 

<M)4? 


96 

CliffTINOE 

MOOnunGO 

, 

C 



RDOnOBTO 


r 



pnnoi'Afto 


c 


Pf AO «FC NO.S — OOTS 

M)i>0'i"90 


C 



PODOOROO 

, fiflAT 



TOTAL = SI7F * TOTDOT 

HDDO'IRIO 

0044 



wfcAO<llOTU('lT) (TEMfiOT (OOTSl-1*! 1 * 1 = 1 1 TOTAL! 

ROD (111920 
ODCn DOT A 

004^ 

i. 


If itypsat .hj. 1 > 00 TO no 

= 111 III Jl/ 

PfiUnilRAO 




IF (TYPSwI .FO. 2 > 00 TO IbO 

Rimnosso 

004*7 



IF ITVPSuT .FO. 3 1 GO TO ICO 

RnonoRGo 


c 



RDfiOi'970 


c 


PETftlEVE SPFCTrtAl INFO 

R0UOO9AO 


c 



RniiooRoo 

O04» 


130 

rill IT 1 NOE 

pnooinno 

A04Q 



ST’FS = NOFFT? i 

MDDOIOIO 

AO‘-n 



TCTOf? = rOTliTT ^ ' 

PriD0ift2a 

00*it 



Call POOOTl tTfHriOT*OOTS.KVAft*SI7fS.TOTDT2iOOTVEC»FETVC3* 

R0001030 




« SI2F,TOTriOTtTOTnT3»NOFET?»TyPSWT) 

RfHlOlBAO 

nac? 



Mr TOMN 

Rfioo i nso 


c 



PDOPiriGO 


c 


OfTMIEVE spatial INFO 

R|10nl070 


r 



pimniacD 

no*^? 

ISO 

CONTI I'MIF 

PROOIORO 

oasA 



SI7FS = 4 

RODOnOO 

floss 



T(lTnr2 = TOTOOT 

Ronoi 1 10 


r 



RDOOl 120 

OOSft 



CAlL RCHIOTI nFMOOT,OOTS.KYAO»SI7F$.TOTDT?tOOTVECfFETVC3i 

Roiioi 130 




« ST7e,TOTOOT,TOTnT3,NOFET?,TYFSoTI 

Rrmoiuo 

na-,7 



pftomn 

RDOOl ISO 


c 



MODOl Ion 

noso 


IBO 

CONTINUE 

RDOOl 170 


c 



RnOflilRO 


c 


RFTHIEVE SPECTRAL AND SPATIAL INFO 

pniio 1 i 90 


c 



pDoniPoo 

OOSQ 



SI7ES 3 SI7F 

RROOIPIO 

0060 



TOTOT? = TOTDOT - T0T0T3 , , . 

Munoippo 

Ofvsl 



CAlL MDOOfl nFNnOT.DtlTS.KVAP.SnFSfTOTDTZ.DOTVEftFETVCS. 

RD0nl?30 




A SI7F»T0Ti)0TiT0TDT3*N0FET2,TYPS'/(T1 

R0001240 

no^;> 



HFTUMN 

RDDOIPSO 


c 



RDD0I260 

n06i 



ENO 

RWM11270 



E.IO SOFTWARE SUBPROGRAM NO. 10 (SET13) ’ 

Subprogram SET13 reads and decodes control card images for the 
DOTDATA processor. 

E.10.1 Linkages 

Siibprograin SET13 is called by DOTDATA. It calls EOD-LARSYS utility 
routines ORDER, NXTCHR, FIND12, and NUMBER, and the Fortran re-read 
routine REREAD. 

E.IO. 2 Interfaces 

Subprogram SET13 has included labeled common blocks /INFORM/, 
/GLOBAL/, and /DOTVEC/. 

E . 10 . 3 Inputs 

SET13 has no calling sequence provided. 

E.IO. 4 Outputs 
N/A 

E.IO. 5 Storage Requirements 
3648 

E.IO. 6 Description 

Subprogram SET13 has been expanded to read a new OPTION card 

U unit # in order to specify a Fortran unit number for a lACIE 
formatted dot file_. This file replaces the in-line LACIE formatted 
dot cards following' the *END card in the control card stream. The 
variable LACIE in /DOTVEC/ then is set to the unit number. 

E.IO. 7 Flowchart 
N/A 

E.IO. 8 Listing 
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^n^5^P4 J r, Lf’VFL ai 


SFTU 


DATE = 7ei3R 


^0/02/n 


PAGf 0001 


P!l f cFTll 


I 

'-S 


O0<M 

ono? 

onm 

nnrt 

nnoA 

p(ir>s 

POUT 

nnnx 

ooaq 


nnin 


non 

noi? 

«on 


«or4 


no)5 

AfllA 

0017 

ooi-> 

non 

nn?n 


nn?i 

no ?2 


O0?3 

no?4 


no?s 

on?ft 

oo?T 

on^i 


on?q 

notn 

omi 

0032 

oon 

0034 

003A 

nniA 


n<i>r 

0034 

0033 

0040 


0041 

004? 

0043 

0044 
Ofl4‘i 
004A 


SVJ4«yini-iE SET 13 

IvwLICir INThGFR (A-ZI , _ , 

lUOfiysTO'J rOriF(O) «CAK0(62> »Ff»UCOM(3) tACAPD(?0) 

Or'l-ffStOft 5L4SH{?I 

|iaTA si ASh /I . 

0414 rooE/*r«A(i».»oATAi. 'OOTF** 

4 »OPTI > , tOATF « , » •Ht01*» •HE0?»» '*EN(J*/ 

OaTA FI)i)C 0 '/?i • = •<*.'/ 

data n/»i)t/,«t >'»</* •/.ll/*llV.FF/»F'/fOO/tO'/tP/'P'/ 

I'flTA L/«4-*/ 

C iNClIlOf Cn-Kl.LIST 

C TNOLIIQF riM«K4» LIST 

C IiiCLMOE COM-<A.LIST 

C IsrLl'OT C"0"14»L1ST 

ro 1 iFO*- 4/AUCLS 2 * V AfOFF TP* VA3S2 ?• TllTVTP* NOFL02* 

» AV Ai^P.COVAPP.rL Sin?* SUHM02. SUHPS?*FL0SV2« VERT X2. 

* FFTvrPI ni tSIJi-VCPITSI tSUBPTHITS) tCLSVCaiOO) I 

» KfHPTSISOI ,N0fiK'P*G3PfjAM|60) .OKPOtX <01 1 , 

4 Swt'V.HK (All .OHfHMS (l?4) 

Df'Fi-fSrO I hpnl llS>,f-fO?(lS)*r)ATF(3>tCO«FFJT(lS> 

F'dilvaiENCF (hMII U ) *hFaii (4) ) , (rt4TE( 1 ) *f>FAO(??I I * 

? (F-M'Pd ) iMFAO nO) ) * (auiENT < 1 1 *MtAn<4rtl ) 

rOMMON/GLOnAL/HFAiHS O , IftPTAP.OATAHF .SAvTAP,3mf jLF*fiMKF.V* 

* AlSF IL.HlSKf v,TPFflP-,FRIPTP,FHPAFy*MAKUNT*NOF!Le* 

* llJllHAn.0PPA0S*OA(jSI7*’TATF 1 L«STaF IL*4SAV*ASAVKL 

* .NhST0iI*WPSTF1*SCTPi)'*,«aPF1L 

« .OOT'lfjT.nOTFIl ,nCF'PAS,TPFSFL*i<"'TPFl *H [ STH * PCHUNT * 

« CMOd iT*PPTUt<T*<^AWUO 

' CO“ML»iv /OOTVFr/TYPF*r4TfjAH(r,ni .(I0CAT*T0TVF.C*H DINF (fi) tPRTKEY 
*Si7F . LAFIF 


CsENO 


ion 


7FP0 = 0 
iiOFETz = I) 

FIFLI) = 1 
P«TKF Y = 0 
(,pilT=4 
LACie = 0 

*.t'JTF{A,100) 

F03MaTt/llX, 'INPUT SUPPAPY'//) 

SET UP RFkEaO buffer 

PPUNJT = JO 

CALL wfftEAniPPUNlTiflO) 


PUT CAPO IN POFFFfl 

lOS MFAn(?l,103) (ACAPQ(I),Ial,20) 
103 FOOPATI20A4) 

WP1TF<30.1031 tACAPt) 111 ,1=1,201 
ktwi'-i'j mmuijIT 


PcAn<Ji3»i iniconFitCAPn 
fifcJlN'l HPUNIT 
rm = 0 

wi. [TF (4, 1 ?n I roiiFi ,C4Pn 
IPO FlIP-IAr UX,A 4 ,SX,F> 2 aI) 
no Format IA 4, ox, <i?Aii 
on 13*1 l=l,fiPUT 

IF (ciifiEi.fo.conFm 1 ro to nso,iHO,?jo,j3o,37o, 

» 39U,40U'4lU,420) , I 

130 rosriN'JF 

1 3S pxTTl: <4, 140) 

140 FliOMATI « invalid CONTROL CAPO - IGNORED •) 

Go TO lOS 

C CnANNtl. CARD 

C 

ISO M = NXTCHP (CARO, COL) 

IF (M.F<1,0| feO TO ISS 

IF (M.F j.pLF’M go TO ms 
IS? VRTrF(4,lS3l 

1S3 format I* EPROfi ON DATA CARD') 

GU TO lOS 


SFTOOOlO 

SFT00020 

SET00030 

SFT0O04O 

StTOiiOSO 

SF.TOOUGO 

SKTOU070 

SFTOOObO 

SFTOflflOO 

SETOOlOO 

SFTOOIIO 

SFT00120 

SFTocno 

SFT00140 

SFTftulSO 

SETOiilbO 

SFT0U17U 

SETOnlOO 

SETonmo 

SFT00200 
SFTOiiPlO 
SFTOii??0 
SFrnn23o 
SFTOOPaO 
SETOOZSO 
SFTO02G0 
SET00270 
SFT00?O0 
SK To 0200 
SFT00300 
SET0ri310 
SET003P0 
StT0t)330 
SFT00J40 
SFIonlbO 
SFTOO Jf>0 
SFT00370 
SFTO.)380 
SFT0O3P0 
SFTO(i400 
SFT01I410 
StTOOAPO 
Sf T0'I430 
SFT00440 
SFT004SU 
SF. TO 04 60 
SET0O470 
SFT004R0 
SFT00490 
SFTOdSOO 
SFTOOSIO 
SFTOOS20 
SF' To. 1330 
SFTOdSAO 
SFinossn 
SFTnoshD 
SFT00570 
Sf TfldSOO 
SFTOdSPO 
SFT00600 
SFTflOOlIl 
SFTnri4?« 
SFTfl.i430 
Sf 100040 
SFTOt.OSO 
SF I 011060 
SFT0O670 
SF.TOOOflO 
SFT00090 
SFT00700 
SKTOOTIO 
SFT0D7P0 
SFTflu730 
sfTomao 

SFT0O7S0 

SFT00760 




FfiPToan Iv r, LFVFL 21 


SGT13 


DATt = 7831B 


10/02/13 


PAGF 0002 


V 

V 


*vFTn 





nAft? 


ISS 

.1 = FIN012KAP0.C0L.F0UC0M) 

SET00770 

n06'^ 



IF U ..IE. 71 60 TO 1S7 

SFT00780 

n04<5 



N0FFT2 = NUPPF«<CAH0.C0L.FeTVC2.N0FeT2l 

5£T0«79O 

OOhO 



tall Ol'riEHlFETVCP.NOFFT?) 

SETOOPOO 




Ro TO ins 

SET00810 


r 



SFIO.IPPO 


c 


oat« file capo 

SFT0O83O 


c 



SF 11)0840 



IPO 

K a N*TCHP (CA90.CUL) 

Fr TO'tftso 

fvftc-x 



IF IS .19. •-1 nr 1 RO TO los 

SFTOOSbO 

nosv 



If li'.Ml.iJ) (,0 ro 190 

SFrnoHTO 

rjflqc, 



IF li'.fu.FFI 60 TO 200 

SETnnflflO 

nnSA 


IPS 

V'lTF (4. 187) 

SET 09890 



l«7 

FO^Pitrii tRPr>R ON OAT* FILE CARO'l 

SF.TOD900 

no'- 



»o lo ins 

SF lOiiRlO 

no« j 


190 

U = H DlPirfwO.COL.FOilCOM) 

SF 100920 

pAAr 



IF IJ .IF. ?l GO TO 18S 

SF 1 011930 

on* I 



n = MU UF.< (CA90.CUU.fnTAPF.7FROl 

SFT00940 

nOAP 



rot = r.)L - 1 

SFT0O9S0 




Oil TO 100 

SF TO. I960 

noA& 


aftn 

J = Fiuoiplf aRU.COL.FoUCOM) 

SFT0U970 

OO^S 



IF ( J .Ml-. 2 ) 60 ro los 

SF T00980 




M = Nil.n8fPir4«i).COL.D4TFILi7FHO) 

SFl 00990 

(\0f.7 



OATFIl = OATFtL - 1 

SETOIOOO 




COL = rOL - 1 

StTOlOlO 

An<^Q 



60 TO 180 

SET01020 


c 



SET01030 


c 


OUT FILE taPO 

SFT0TO4O 


c 



SET0IO80 

0A7f» 


Pin 

S = nxTCh^ (f aNO.C(iL) 

SFT01060 

nr) n 



IF (■'.F'l.OOl 60 TO 2ll 

SF101070 

n07/> 



IF go to lOS 

SFlOiORO 

nr)?'^ 



Go TO PIS 

SET01090 

0A74 


213 

J = FIwOlPICARD.COL.SLAStll 

sFtoiioo 

CtM^ 



IF IJ .F<J. -1) GO TO 21S 

SFToniO 

on /ft 


214 

K = NXICHkICARO.COLI 

SFT01120 

n077 



IF (M .E(l. «LNi< 1 bO TO lOS 

SFT0U30 

007*^ 



IF (.'.FO.IIl RO TO 230 

SFTOI 140 

no7‘; 



IF ( .FM.FFl 60 To P4 0 

snniisQ 

OOnO 


PIS 

ITE (s.2/0) 

SETOI 160 

no^i 


??n 

FORMAT!' foroh on f)l)T FII E CAPD'I 

SFTOI 170 

no» ? 



6iJ TO HS 

SFTOI IHO 

on n 


>30 

J = Eri012(CA9D.COL.FOiJCO“) 

SETOl 190 




IF 1 0 .Nr. at 60 TO 215 

SFTO120O 

00o*« 



M = NU’HtP ICAH0»C0L.00rUNTi7Fft0) 

SET01210 




cm = cot - 1 

SET01270 

r>n«7 



60 TO 214 

SF.tnl?30 

r>7h>* 


P40 

J = FrioipifAkO.roL.eoucom 

SET0I240 




IF (0 . IF. 2) 60 TO 21S 

SFT012SO 

0070 



M = HO merilCAKD.COL.DOTFIL.ZFnOl 

SFT01260 

no<-1 



lioIFIL = ofUFIt - 1 

SFT01270 

nn^? 



rol = COL - 1 

SeTftIPrtO 

nrrj-^ 



60 To 214 

SFTO1290 


c 



SflOllOO 


c 


option CAkO 

■.FI 01 no 


r 



SET01320 

0004 


310 

F< = NxrCHRlCAHD.COLl 

SFTO1330 

OO'i^ 



IF <" .80. 6LNK 1 60 TO inS 

SGTftl T40 




If Ot.rO.P) GO TO 340 

SETOl 3S0 

O0F7 



IFIM.FO.L160 TO 34S 

SET01360 

CITTn 1 TlTft 


C*»* COOF APiteo MOV 21. 1978 IM SUPPORT OF 1 1ST PROCESSING 

nr fUI Jfw 

SFl 01380 


c 



SETOl 390 

onso 



IF (M.FO.Ul GO TO 3S0 

SFIOIAOO 


c 



SFI01410 

no</<5 


333 

-VRTTF (f>.33SI 

SFI01420 

07 00 


31S 

FOK^ani eoSOR ON OPTION CA6DM 

SET01430 

njoi 



60 TO 1H5 

SFT0I44O 



340 

PRTaFY = 1 

SFT01450 

0 1 (1*) 



•GO ro los 

SFT01460 

01 lU 

345 

LACIF = 1 

SFT0I47Q 

MO*- 



60 TO ins 

SET014M0 

0 106 

350 

p = NUMBERICARO.COL.LACie.ZEROI 

SFT01490 

0107 



60 TO lOS 

SFTOI SO 0 


c 



SFTOlSlfl 


c 


DATE CAHO 

S£T0I620 



FnUTftA*! Tv (i U-VFt 21 


SFT13 


[)aT£ = re338 


IF SFTn 
0) ftp 

C 

370 

AlAQ 
Olio 
■M 1 1 

ISO 

ni 1 > 

oin 

01)4 

C 

C 

C 

300 

nl)s 

ons 

0117 

■'in 

nllp 

c 

c 

c 

400 

01?0 

OlPl 

012? 

ol?3 

C 

r 

c 

410 

01P4 

"IPS 

01P4 

c 

"! ?7 

c 

c 

420 

"IPS 
OIPR 
0| 30 

<>ni 

430 

•'13? 

"na 

c 

440 

"134 

0 13S 
"1 34 

01 37 

C 

C 

1040^ 

"1 34 
"130 

1000 

0140 

1010 

0141 

1030 

lil4? 

"143 

C 

C 


M = NUTCHHTCArtll.COL) 

IF ( H ,tu. riLNK ) GO TO 1 OS 
hFAO<31.3SOIOATF 
FOKfATCIOXilSAA) 

RhiVlhti RkUNTT 
Oil TO lOS 

Comment capp 

M = N»TCrl<<( CAPO* COD 

IF (p .FO. Ill NX ) GO TO 105 

pFaTM 10,3*i0>f0MFNT 

PEtutNP PPUNIT 

00 TO IQS 


•^hDl 

M = H/rChM(CAPD.COLJ 
«F ADI JO. 3501 HEOl 
HfPlm PwonIT 

GO TO lOS 
riFO? 

M = N«TCFiMtCAPn.COLI 

MtAPt30,3'j0) HCf)2 
P£WIH|1 PPtJNIT 
S') TO 105 

*tMl« 

rOMTTA'OE 

IF (OOFFT2 ,nE. 01 GO TO 440 
no 4311 1 = 1,30 
FFTVC^dl = I 

continue 

MiffT? = I 
5I7F = 4 ♦ NOFFT2 


4«ITE(StlOOOI 

If <>^etvc2,i.,i=i,nofet2i 

FOPMATO laCIE FOMMATTFO DOT CAPOS USED AS EOD-LARSYS FIELD 
IFtl.ACIF.EO.!) XPlTF(F,in40) 

FORMAT (//• U5F« HAS HFOUFSTFO TmF FOLLOWING OPTIONS :*/) 
Format (• SFLtCTEO channel*: aPE»,30I3) 
format (• print data VECTORS') 

Rf TUP'S 
Ei.O 


10/02/13 


*:ET01530 
SFT01540 
SET015S0 
SET0IS60 
SET01570 
SFT015P0 
SF TnlSPO 
SFTOISOO 
SF T01410 
SFTOISPO 
SFT01G30 
SET01640 
SF T01G50 
SFTOlfiOO 
SFTOloTO 
SFTOlSfiO 
SFTOIFPO 
SFTn 1700 
SET01710 
5ETnl720 
SFT01730 
SET01740 
EFTfll 7Sn 
SFTOlTftO 
SET01770 
SFTOl 7S0 
SF TO 1 700 
SFTOIMOO 
SETOIPIO 
SFTOIG20 
SFT01P30 
Sf T01ft40 
SFTOIMSO 
SETOlShO 
SFT0M7O 
SFTOIOftO 
SETOIOPO 
SFTOI900 
SFTniQlO 
SFTOIPPO 
SFT01P30 
SFT01940 
SETniPSO 
SFTfllSftO 
SFT01970 
CARflS'SFTOIPflO 
SETOlpPO 
SETOPOnO 
SFTO/010 
sFTnPopo 
SET0P030 
SFTO/040 
SFTOPOSO 
SFTO/060 
SET0P070 
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the p*tte«son-pitt-tmaCani algorithm program 


ll 

.o ^ 

E s 

13 

^5? 


vJGCT^O C AHLERS dec 11*1978 10 38 23 AN 

PFLAG= 0 

CUMIT= 3 «0NIT= 7 

NO, OF CMANNELS= 25 

NO, OF CLASSeS= 2 

CATEGORY INDEX 

S 1 

5 2 

7 0 

the cost matrix 
0.0 1.00 
1.00 0.0 
N0aTA= 25 

featuhe vector format 

{2I2.2A1.II,*M ,AA,A(/* eF9.4>) 


L!NF 

«f.Nn 


the feature index vector 

1 2 3 A S 6 7 8 9 10 n 12 13 14 15 16 17 18 19 20 21 22 23 24 26 

Nl= 3S1 N2=62127 

TEfi"S FOR THE PHI FUNCTION 
ALL 

1021 1 6255 6363 7159 7194A 

7194 18 20 58 608 

1851 1 6289 6361 7067 7193A 

7193 23 24 26 608 

THF NO. OF SAMPLES = 414 


1021 

1021 

1851 

1851 




THE 0 MATRIX 


>0.20**633S622n-01 
-0.?»'*4S603090-0{ 
-0.25431066300-01 
0.3BrtS^75?27SO 00 
•0.330671S8800-01 
n. •»! I n 3 AT 47 ?n on 


0. 20863356220-01 
0.28845603090-01 
0.25431066300-01 
-0.38897522750 00 
0.33067158800-01 

-0.11 1034 747RD AO 






TIME FOH PPTA 


0.7*9 






Lcif^ 


THF pattfrson-pitt-thaoani classifier program 


JSCTiiO C AHLERS dec 11.19T8 11 Z1 32 AM 

LOSS vector matrix unit no. = 7 


M = 2fi 

NO. OF CHANNELSs 2S 

NO. OF CLASSES= 2 

CATEGORY INDEX 
N 2 


thf term key for the phi function 
onnnooonflonoooooanoooonoooooooooooooooooooooDooooo 
onnnooooooooooooQoooooooooooooooonoooDODoooooooooo 

00(1(10300000000000000000000000000000000000000000000 

nnodonoooooooooonoonoooooooooooooooooooooooooooooo 
oonooooooooooooonoooooooooooooooonoooDonoooooooooo 
000(1 00 oooaoooooooooooonoooDooooooooooooooooooooooo 

oooooooooooooooooooooooooiiiiiumuiiiiuiimii 

1 


the cost matrix 


0.0 1.00 


1.00 0.0 
NDATA= 25 
FEATURE vector FORMAT 
(2I2.2A|tIl.AIl .A4f4(/» OFS.Al) 


The feature index vector 

1 2 3 A S « T 0 9 10 11 is 13 lA 18 16 IT la l« 20 21 22 23 2A 28 

i 

Nl= 351 


PFLAG= 

LOSS VECTOR MATRIX 
0.20»633Sfi22i>-ai 
n.2RaA5603G9n>0f 
0.754310661011-01 
-fl.3fi«975??7Su 00 
0.330671sRaO(1-nl 
-0.31103474720 00 
-n.?H6?3fl4fi020-01 
-n,394S95H6450-Ol 
-0.56360190170-02 
0.27004229320-02 
n.76215fl65>ii80-02 
0.19500070500-02 
-0.91S3T014S30-02 
-0.416086241SD-02 
-0,60460026110-02 
0.-T1449(*64320-01 
0.60094648510-01 
-0.13413712730-01 
- 0 . 6104045057 ( 1-01 


-0.2D8633S622D-01 
■0»2«ft4560309D-Oj 
'0.25431666300-01 
0. 38897522750 00 
0.33067158800-01 
0.31I0347472D 00 
0.26623848020-01 
0.39459586450-01 
0.56366190170-02 
0.27004229320-02 
0.76235865980-02 
0.19500070SCO-02 
0.91537014530-02 
0.41608824150-02 
0.604600261 JD-02 
0.314A9864320-D1 
0.60094648510-01 
0.13413712730-01 
( 1 . 6 ) ( 14 ( 1459570-01 




-n.JiiTe'Jbiiiao oo 
-5.194 <j607i rao oo 
■2«|‘>*53pio(i90-oi 
-0.3llS93'i3fiiao 00 
'•n.3?174233410-ni 
n.?129875748D“01 
0t947fl?06?970 00 


0.21176961420 65 


0.32174233610-01 
“0.232987674BO-01 
0. 52170170310-01 


0 oT 






HEAOEn RECORDS 


1021 1 6255 6363 T159 7194* 

719* 18 20 58 606 

The no. of samples => 209 

...OVERALL CLASSIFICATION RESULTS... 

183 PIXELS classified AS S 

26 PIXELS CLASSIFIED AS N 

4 PIXELS WITHOUT ground TRUTH 
3 UNUSED GROUND TRUTH SVHBOLS 

SUMM4HV TABLE FOR 6T VS. PPT 


S N 


s 

59. 

e. 

67. 

N 

117. 

IS. 

135. 


176. 

26. 

202. 


summary table for a I 

VS, PPT 


s 

N 


s 

45. 

5. 

50. 

N 

114. 

17. 

131. 


159. 

22. 

181. 


SUMMARY TABLE FDR 6T 

VS. AI 


$ 

N 


s 

45. 

13. 

58. 

N 

2. 

116. 

lie. 


47. 

129. 

176. 


PROBABILITY 

table FOR 

GT VS. PPT 


S 

N 


s 

0.29208 

0.03960 

0.33168 

N 

0.57921 

0.08911 

0.66832 


0.87129 

0.12871 

1.00000 


1021 


1021 



o 


the estimate of the PHOBABILITy OF CORPECT UBELIN6 IS 
PROBABILITY TABLE FOR AI VS. PPT 
S N 

S 0.24BA2 0,02762 0.2762A 

0.629B3 0.09392 0.72376 

0.87845 U.I2IS5 l.OOOOO 

ThF estimate of the probability of CORRECT LABELIN6 IS 
PROBA8ILITY TABLE FOR GT VS. AI 
•= N 

S 0.23568 0.073P6 0,32955 

H 0,01136 0.65909 0.67045 

0.26705 0.73295 1,00000 

THE ESTIMATE OF THE PROBABILITY OF CORRECT LABELING IS 


0.30119 


0.34254 


0.91477 



CLASSIFIED DOT LABELS 


CATEGOHIFS FOUND! NS 


NkRFnIs 


0 





noT 1 
noT 1 
OOT 1 
CDT 1 
noT 1 
(>OT 
f'f'T 
OOT 
fWT 
nuT 
oni 
flOT 
DOT 
DOT 
OOT 


LACIE FpPMAT OOT LABELS 
WWITTEN TO UMT 


4 

2 

S6 

flS 


6 

24 

6fl 

90 


a 

26 

60 


120 

122 

124 1 

150 

152 

154 1 

lao 

182 

184 1 


27 

10 

2B 

62 

94 


J 

S5 

a? 


23 

S9 

89 


2S 

61 

91 


9 

27 

63 

93 


12 
30 
64 
96 
128 
158 160 
188 190 


14 

16 

18 

20 

32 

34 

36 

38 

66 

68 

70 

72 

98 

100 

102 

104 


JI 

29 

65 

95 


13 

31 

67 

97 


22 


132 134 136 136 


11^ U’ ‘21 123 125 

}»l }?2 {|| ‘53 ‘5S> 

kU lo%' Ut 


162 164 
192 194 
15 - 

33 
69 

99 ... 
127 129 
157 159 
187 189 


35 


166 168 
196 198 
19 21 


37 

73 


39 

75 


103 105 
131 133 
161 163 
191 193 


42 52 

44 46 

76 78 
108 110 
1*0 142 
170 172 
200 202 

43 51 

41 45 

77 79 
107 109 
135 137 
165 167 
195 197 


80 

48 so 54 
82 84 86 

112 114 Its 
144 146 148 

IJ*; ut kii 

47 49 S3 

ei 83 85 

111 113 115 
139 141 143 
169 171 173 
199 201 203 



AI DOT LABELS 


CATEGORIES EOllNOt OMNRS 









GROUND TRUTH VS A. X. LABELS 
TYPE 1 DOT classification 



10 

20 

30 

60 

50 

60 

70 

80 

90 

100 

no 

120 

130 

1*0 

ISO 

160 

170 

180 

190 

10 


S/N 


S/R 


N/0 


N/N 


S/S 


N/N 


N/N 


N/M 


5/S 


?0 

s/s 


N/N 


N/N 


N/N 


S/S 


N/N 


N/N 


N/N 


N/N 


S/N 

30 


S/R 


N/N 


S/S 


S/S 


N/N 


S/N 


N/N 


N/N 


S/N 


*a 

N/N 


S/S 


M/N 


5/N 


N/N 


N/N 

- 

N/N 


S/S 


S/S 


N/N 

50 


N/N 


N/N 


N/N 


N/0 


S/S 


N/M 


N/N 


S/S 


N/N 


60 

S/S 


S/S 


N/N 


S/S 


N/N 


N/N 


N/N 


N/N 


N/0 


S/S 

70 




N/N 


/S 


N/N 


S/0 


S/S 


S/S 


N/N 


N/D 


AO 

N/N 

” 

N/0 


N/N 


S/N 


S/N 


N/N 


N/N 


N/N 


N/N 


N/N 

90 


S/N 


N/N 


S/S 


N/N 


N/N 


S/N 


N/N 


N/M 


S/S 


lOO 

S/S 


N/N 


/N 


S/S 


N/N 


N/N 


N/N 


N/N 


S/S 


N/N 

no 


N/N 


/S 


N/N 


S/S 


N/D 


N/ft- 


S/H 


N/0 


N/D 




GROUND TRUTH VS A. 1. LABELS 
TYPE a DOT CLASSIFICATION 



10 

20 

30 

♦ 0 

SO 

60 

70 

BO 

90 

100 

110 

120 

130 

140 

150 

160 

170 

lao 

iO 

N/N 


N/N 


N/N 


N/N 


S/N 


N/M 


N/N 


N/N 


S/S 


20 


N/N 


N/N 


N/H 


S/S 


N/N 


N/N 


N/N 


N/N 


N/N 

30 

S/S 


S/S 


N/D 


S/S 


S/5 


N/N 


S/N 


N/N 


S/N 


*0 


S/S 


N/N 


N/N 


N/N 


N/D 


N/N 


N/H 


N/S 


/N 

SO 



N/N 


S/S 


N/N 


N/0 


N/N 


N/N 


S/S 


N/N 


60 


N/0 


S/H 


N/M 


N/N 


N/N 


N/M 


S/R 


N/N 


N/N 

70 

N/N 

M/H 

N/N 


N/N 


N/H 


N/N 


N/H 


S/S 


S/S 


S/S 


^0 


N/N 


N/N 


S/N 


N/N 


S/H 


S/S 


N/N 


N/N 


N/N 

<30 

N/N 


N/H 


S/S 


N/H 


S/S 


N/N 


M/H 


N/N 


S/S 


100 


N/N 


N/N 


S/S 


N/N 


N/H 


N/N 


N/N 


N/N 


S/S 

no 

N/N 


S/S 


N/N 


S/M 


S/S 


N/N 


S/S 


N/N 


N/D 



190 

S/S 

N/N 

S/R 

N/D 

N/S 


N/N 





GROUND TRUTH VS CLASSIFIED LABELS 


TYPE 1 DOT CLASSIFICATION 



10 

ao 

30 

AO 

SO 

60 

70 

eo 

90 

10 


s/s 


S/N 


N/N 


N/N 


20 

S/»l 


N/N 


N/S 


N/S 


S/S 

TO 


s/s 


N/N 


S/S 


S/s 


AO 

N/S 


s/s 


N/S 


S/S 


N/S 

50 


N/S 


N/N 


N/S 


N/S 


bO 

s/s 


s/s 


N/S 


S/S 


N/S 

70 




N/S 


/S 


N/S 


PO 

N/S 


N/S 


N/S 


S/S 


S/S 

90 


S/S 


N/S 


S/S 


N/5 


100 

5/s 


N/S 


/S 


S/S 


N/S 

no 


N/S 


/S 


N/S 


S/S 



100 

110 

120 

130 

lAO 

150 

160 

170 

leo 

190 

S/N 


N/N 


N/N 


N/N 


S/N 



N/S 


N/S 


N/S 


N/S 


S/S 

N/S 


S/S 


N/N 


N/S 


S/S 



N/S 


N/S 


S/S 


S/S 


N/5 

S/S 


N/S 


N/S 


S/S 


N/S 



N/S 


N/S 


N/S 


N/S 


S/S 

s/s 


S/S 


S/S 


N/S 


N/S 



H/S 


N/S 


H/S 


N/S 


N/S 

N/S 


S/S 


N/S 


N/S 


S/S 



N/S 


N/S 


N/S 


S/S 


N/S 

N/S 


N/S 


S/S 


N/S 


N/S 




ground truth vs classified labels 

TYPE 2 DOT CLASSIFICATION 



10 

20 

30 

40 

SO 

60 

• 70 

80 

90 

Ifl 

N/S 


M/M 


M/M 


N/N 


S/N 

20 


N/N 


N/S 


N/S 

■ 

S/S 


30 

S/S 


S/S 


N/N 


S/S 


S/S 

40 


S/S 


N/S 


N/S 


N/S 


50 

«/s 


N/S 


S/S 


N/S, 


N/S 

60 


N/S 


5/S 


N/S 


N/S 


70 

N/5 

M/S 

N/S 


N/5 


N/5 


N/S 

an 


N/S 


M/5 


S/S 


N/S 


90 

N/S 


N/S 


s/s' 


N/S 


S/S 

100 


N/S 


N/S 


S/S 


N/S 


110 

N/S 


S/S 


N/S 


S/S 


S/S 


100 

no 

120 

130 

140 

ISO 

160 

170 

180 

190 


N/N 


N/N 


N/N 


S/N 


S/N 

N/S 


N/S 


N/S 


N/S 


N/S 



N/S 


S/N 


N/S 


S/S 


N/N 

N/S 


N/S 


N/5 


N/S 


/s 



N/S 


N/S 


S/S 


N/S 


S/S 

N/S 


N/S 


S/S 


N/S 


N/S 



N/S 


S/S 


S/S 


S/S 


N/S 

S/S 


S/S 


N/S 


N/S 


N/S 



N/S 


M/S 


N/S 


s/s 


N/S 

N/S 


N/S 


N/S 


N/S 


S/S 



N/S 


S/S 


N/S 


N/S 


N/S 





Ai !• LABELS VS CLASSIFIED LABELS 
TYPE 1 DOT CLASSIFICATION 



10 

20 

30 

AO 

50 

60 

70 

ao 

90 

10 


N/S 


R/N 


D/N 


N/N 


20 

S/H 


N/N 


N/S 


N/S 


S/S 

30 


R/S 


N/N 


S/S 


S/S 


AO 

U/S 


S/S 


N/S 


N/S 


N/S 

60 


N/S 


N/N 


N/5 


D/s 


60 

S/S 


s/s 


N/S 


S/S 


N/S 

70 




N/S 


S/S 


N/S 


00 

fj/S 


0 /s 


N/S 


N/S 


N/S 

90 


N/S 


N/S 


S/S 


N/S 


too 

S/S 


H/S 


N/S 


5/S 


N/S 

110 


N/S 


S/S 


N/S 


S/S 



100 

110 

120 

130 

lAO 

150 

160 

170 

180 

190 

S/N 


N/N 


N/N 


N/N 


S/N 



N/s 


N/S 


N/S 


N/S 


N/S 

N/S 


N/S 


N/N 


N/S 


N/S 



N/5 


N/S 


S/S 


S/S 


N/S 

S/S 


N/5 


N/s 


S/S 


N/S 



N/S 


N/S 


N/s 


0/S 


S/S 

D/S 


S/S 


s/s 


N/S 


0/S 



N/S 


N/S 


N/S 


N/S 


N/s 

N/S 


N/S 


N/S 


N/S 


S/S 



N/S 


N/S 


N/S 


S/S 


N/S 

n/s 


R/S 


M/5 


0/S 


0/S 




A. I* LA6ELS VS CLASStFIEO LABELS 
TVPE 2 DOT CLASSIFICATION 



10 

20 

30 

40 

SO 

60 

70 

80 

90 

10 

N/S 


N/N 


N/N 


N/N 


N/N 

20 


N/N 


N/S 


N/S 


S/S 


30 

S/S 


S/S 


0/N 


S/S 


S/S 

*n 


S/S 


N/S 


N/S 


N/S 


so 

s/s 


N/S 


S/S 


N/S 


0/S 

60 


0/S 


M/S 


N/S 


N/S 


70 

N/S 

M/s 

N/S 


N/S 


N/5 


N/S 

80 


N/5 


N/S 


N/S 


N/S 


00 

N/S 


N/S 


S/S 


N/S 


S/S 

loo 


N/S 


N/S 


S/S 


N/S 


HO 

N/S 


S/S 


N/5 


M/S 


S/S 


100 

no 

120 

130 

140 

ISO 

160 

170 

180 

190 


H/N 


N/N 


N/N 


S/N 


S/N 

N/S 


N/S 


N/S 


N/S 


N/S 



N/S 


N/N 


N/S 


N/S 


N/N 

D/S 


N/S 


N/S 


S/S 


N/S 



N/S 


N/S 


S/S 


N/S 


R/S 

N/S 


H/S 


R/S 


N/S 


N/S 



N/S 


S/S 


S/S 


S/S 


0/S 

M/S 


S/S 


N/S 


N/S 


N/S 



N/S 


M/S 


N/S 


S/S 


S/S 

N/S 


N/S 


N/S 


N/S 


S/S 



N/S 


S/S 


N/S 


D/S 


N/S 



Hit 


HEftOe« RECORDS 

I «8<J 6361 7067 7193A 
7193 23 26 26 60U 

the flO. OF SAMPLES = 205 

...overall classification results... 

197 PIXELS CLASSIFIED AS S 

« PIXELS CLASSIFIED AS M 
12 UNUSED GROUND TRUTH SYMBOLS 

summary Table for gt vs, ppt 



S 

N 


s 

37. 

1. 

38. 

H 

16B. 

7. 

155. 


185. 

A. 

193. 


SUMMARY Table for ai 

VS. PPT 


s 

N 


S 

5A. 

1. 

SS. 

N 

47. 

2. 

69. 


101. 

3. 

106. 


summary table FOR GT 

VS. A I 


s 

N 


S 

30. 

1. 

31. 

N 

21. 

67. 

68. 


SI. 

68. 

99. 


probability 

table for 

GT VS. PPT 


s 

N 


s 

0.19171 

O.OOS18 

0.19689 

N 

0.766BA 

0,03627 

0.80311 


0.95MSS 

0.06165 

1.00000 


THE ESTIMATE OF THE PROBABILITY OF CORRECT LABELING IS 


IR51 

IBSI 





probability table for A! vs. PPT 


N 

0.009A2 0.52865 

0.01923 0.47115 

0.028B5 1.00000 

TWE ESTIMATE OF THE PROBABILITY OF CORRECT LABELING IS 
PR.tBABILITY table FOR 6T VS. AI 



s 

N 


s 

0.30303 

0.01010 

0.31313 

H 

0.81818 

0.47475 

0.66667 


0.51515 

0.46435 

1.00000 


The estimate OF THE PROBABILITY OF CORRECT LABELING IS 


5 

S 0.S19P3 

N 0,45198 

0.07115 


0.53646 


0.77776 



CU4SSIFIF0 DOT LABELS 


CATFGOftIFS FOUNDS NS 


NtoNFMls 


1 







41 DOT LABELS 


C4TER0PIE5 FOUND: OMNRS 








GROUND TRUTH VS A. I. LABELS 
TYPE 1 DOT classification 



10 

20 

30 

40 

SO 

60 

70 

80 

90 

loo 

110 

120 

130 

140 

ISO 

160 

170 

180 

190 

1(1 


N/0 


N/0 


N/M 


N/0 


N/0 


S/R 


N/n 


N/0 


N/D 


?(1 

N/O 


N/0 


N/S 


N/H 


N/H 


N/S 




N/0 





TO 


S/R 


N/0 


N/M 


N/S 


N/H 


N/0 


N/N 


N/D 


S/S 


40 

N/0 


N/M 


N/N 


N/N 


N/H 


S/S 


S/S 


N/N 


N/0 


N/H 

60 


N/H 


N/M 


N/N 


S/S 


S/S 


N/N 


N/S 


S/S 


N/D 


60 

N/S 


N/0 


N/M 


S/S 


N/N 


N/N 




N/M 


N/N 


S/S 

70 


S/S 


N/H 


S/S 


S/S 


N/H 


N/S 




N/M 


M/N 


flO 

S/S 


S/0 


N/0 


N/N 


S/S 


N/0 


S/S 


N/N 


N/N 


N/0 

90 


N/N 


S/S 


S/S 


S/S 


S/S 




N/0 


N/D 


N/0 


300 

S/M 


N/M 


N/H 


N/0 


N/M 


N/M 


S/S 


N/0 


N/M 


N/0 

no 


N/N 


N/N 


N/N 


N/S 






N/S 


N/0 






Q o 


GROUND TRUTH VS A. I. LABELS 
TYPE 2 DOT CLASSIFICATION 



10 

20 

30 

40 

50 

60 

70 

80 

90 

lA 

N/0 


N/M 


N/D 


N/H 


N/0 

?0 


N/0 


N/N 


N/S 


N/S 


30 

N/N 


M/n 


N/D 


N/S 


N/S 

40 


R/M 


N/M 


S/M 


N/N 


50 

N/M 


N/N 


N/N 


S/S 


N/N 

60 


N/S 


N/S 


S/S 


N/S 


70 

N/S 


S/S 


N/N 


S/S 


N/S 

80 


N/N 


N/M 


N/0 


N/0 


90 

N/S 


N/0 


N/D 


N/D 


S/S 

TOO 


M/S 


S/S 


N/N 


N/D 


no 

N/N 


N/N 


N/N 


N/H 


S/s 


100 

110 

120 

130 

140 

ISO 

160 

170 

leo 

190 


N/0 


N/0 


N/0 


N/0 


N/0 

N/M 


H/S 

M/S 

N/D 


N/0 





N/N 


N/D 


N/D 


N/D 


N/N 

N/N 


S/5 


M/M 


N/0 


N/0 



N/N 


M/S 


N/N 


S/S 


N/N 

N/S 


N/0 

H/N 

S/M 


N/N 


N/N 



N/N 


N/N 

M/M 

S/N 


N/0 


M/d 

N/N 


S/D 


N/M 


N/0 


N/D 



N/0 


N/D 


N/D 


N/0 


N/N 

N/D 


S/S 


N/N 


N/D 


S/S 


R/M 

N/S 

M/S 

N/N 


N/D 


M/D 

M/M 

N/M 



GROUND TRUTH VS CLASSIFIED LABELS 
TYPE I DOT CLASSIFICATION 



10 

20 

30 

40 

50 

60 

70 

00 

90 

10 


N/S 


N/S 


N/S 


N/S 


20 

N/S 


N/S 


N/S 


N/S 


N/S 

30 


S/S 


N/S 


N/S 


N/S 


AO 

N/S 


N/S 


N/S 


N/S 


N/S 

so 


N/S 


N/S 


N/S 


S/S 


60 

N/S 


N/S 


N/S 


S/S 


N/S 

70 


S/S 


N/S 


S/S 


S/S 


80 

S/S 


S/S 


N/S 


N/S 


S/S 

90 


N/S 


S/S 


S/S 


S/S 


100 

s/s 


N/S 


H/S 


N/S 


N/S 

no 


N/S 


N/S 


N/S 


N/S 



100 

no 

120 

130 

140 

150 

160 

170 

ISO 

190 

N/S 

N/S 

S/S 


N/S 

N/S 

N/S 


N/S 


N/5 

S/S 

N/S 

S/S 

N/S 

N/S 

N/S 

N/S 

S/S 

N/S 

S/S 

N/S 

N/S 


N/S 

M/S 

S/S 

N/S 

N/S 

S/S 

N/S 

N/S 

N/S 

S/S 


N/N 

N/S 

N/S 

N/S 

N/S 

S/5 

N/S 


S/S 

N/N 

N/S 

N/S 

N/S 

N/S 

N/S 


N/S N/S 



GROUND TRUTH VS CLASSIFIED LABELS 


TYPE ? DOT CLASSIFICATION 



10 

20 

30 

40 

50 

60 

70 

80 

90 

100 

no 

120 

130 

140 

ISO 

160 

170 

leo 

190 

in 

h/S 


N/S 


N/S 


N/S 


»/S 


N/S 


N/S 


N/S 


N/S 


N/S 

20 


N/S 


N/S 


N/S 


N/S 


N/S 


M/S 

H/S 

N/S 


N/S 




30 

N/S 


N/S 


M/S 


N/S 


H/S 


N/S 


N/S 


N/S 


N/S 


N/S 

♦ 0 


R/S 


N/S 


S/S 


N/S 


N/S 


S/S 


H/S 


N/S 


N/S 


so 

N/S 


N/S 


N/S 


S/S 


N/S 


N/S 


M/S 


N/S 


S/S 


N/S 

60 


N/S 


N/S 


S/S 


N/S 


N/S 


N/S 

M/S 

S/S 


N/S 


N/S 


TO 

N/S 


S/S 


M/S 


S/S 


N/S 


N/5 


N/S 

H/S 

S/S 


N/S 


M/S 

80 


N/N 


N/N 


N/S 


N/N 


N/S 


S/N 


N/N 


N/S 


N/S 


90 

N/N 


N/S 


N/S 


N/S 


S/S 


N/S 


N/S 


N/S 


N/5 


N/S 

ion 


N/S 


S/S 


N/S 


N/S 


N/S 


S/S 


N/S 


N/S 


S/S 


110 

M/S 


N/S 


N/S 


N/S 


S/S 

R/S 

N/S 

M/S 

N/S 


N/S 


M/S 

M/S 

N/S 





*. I. LfcBELS VS CLftSSIFlEO LABELS 
TYPE 1 DOT CLASSIFICATION 



10 

20 

30 

40 

SO 

60 

70 

ao 

90 

in 


0/S 


0/S 


M/S 


D/S 


2<I 

D/s 


0/S 


s/s 


N/S 


M/s 

30 


0 /s 


0 /s 


M/S 


s/s 


♦ 0 

0/S 


M/S 


N/S 


N/S 


M/s 

50 


M/s 


M/S 


N/S 


s/s 


60 

s/s 


l)/S 


M/s 


S/S 


N/S 

70 


s/s 


H/S 


S/S 


s/s 


no 

s/s 


0/S 


0/S 


N/S 


s/s 

nn 


N/S 


S/S 


s/s 


s/s 


100 

M/s 


M/S 


H/S 


0/S 


H/S 

no 


N/S 


N/S 


N/S 


S/S 



100 

110 

120 

130 

140 

150 

160 

170 

100 

190 

0 /s 

S/s 

R/S 


0/S 

0/S 

0/S 


0/S 


M/s 

s/s 

0/S 

S/S 

N/S 

N/S 

0/S 

D/S 

S/S 

H/S 

s/s 

N/S 

N/S 


S/S 

M/S 

S/S 

N/S 

0/S 

S/S 

M/s 

0/s 

S/S 

S/S 


N/N 

M/S 

N/S 

ft/s 

0/S 

5/s 

H/S 


s/s 

D/N 

0/5 

D/S 

N/S 

D/S 

0/5 


S/S D/S 



A. I. CABELS VS CLASSIFIED LABELS 


TYPE 2 DOT CLASSIFICATION 



10 

20 

30 

40 

50 

60 

70 

SO 

90 

10 

n/s 


K/S 


0/S 


H/S 


n/s 

20 


0/S 


N/S 


6/B 


S/S 


30 

N/S 


D/S 


0/S 


S/S 


S/S 

AO' 


M/S 


M/S 


M/S 


N/S 


50 

M/S 


N/S 


N/S 


S/S 


N/S 

A(! 


S/S 


S/S 


S/S 


S/S 


70 

S/S 


S/S 


N/S 


S/S 


S/S 

HO 


N/N 


H/N 


0/S 


D/K 


VO 

S/N 


n/s 


0/S 


0/S 


S/S 

100 


S/S 


5/S 


N/S 


D/5 


no 

N/S 


N/S 


N/S 


M/s 


S/S 


100 

no 

120 

130 

140 

ISO 

160 

170 

leo 

190 


0/S 


0/5 


0/5 


0/S 


0/S 

H/S 


s/s 

S/S 

0/S 


0/S 





N/S 


D/5 


D/S 


D/S 


w/s 

N/S 


s/5 


H/S 


0/S 


D/s 



N/s 


S/S 


N/S 


S/S 


H/S 

S/S 


D/s 

N/S 

M/S 


H/S 


N/S 



N/s 


M/S 

H/S 

N/S 


0/S 


0/S 

N/5 


0/N 


M/N 


D/S 


0 /s 



0 /s 


0/S 


0/S 


0/S 


H/S 

0/S 


S/S 


N/5 


0/S 


s/s 


H/S 

s/s 

s/s 

H/S 


0/S 


O/S 

M/s 

N/S 


I 
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riLF: FILE 


FTP3F001 A 



PAGE 001 



pilf: file 


FT?7F001 a 



PAGE 001 



rU-F: FILE 


Fl?>)F00l A 


PAGE 001 


StTF : 

= ^0^1 

type = 

AI 













mi 

1 

n 

f. 

b4 

112 

124 

132 

136 

200 

204 

208 







noT 

1 

SA 

?n<» 















llill 

t 

N 

2 


12 

14 

16 

22 

24 

24 

30 

3? 

34 

36 

38 

42 

48 

flGT 

1 


■iO 

5? 

?4 

54 

58 

62 

64 

64 

68 

71) 

76 

78 

80 

82 

88 

nriT 

1 


c.T 

Qt. 

loo 

104 

104 

ion 

no 

118 

1?2 

130 

134 

138 

140 

142 

144 

noT 

! 

N 

14<i 

14» 

15(1 

15? 

154 

156 

160 

16? 

164 

166 

168 

174 

176 

180 

182 

DOT 

1 


Ifii. 

IflA 

ion 

192 

196 








m 

1 

P 

4 

40 

20? 












n JT 

1 

s 

ID 

IP 

2(1 

25 

44 

44 

40 

7? 

74 

86 

92 

96 

98 

102 

114 

DOT 

1 


17(1 

1?A 

l?p 

15P 

170 

17? 

178 

18H 

194 

198 






0.1T 

? 

n 

•41 

07 

4? 

97 

1 33 

?07 










DOT 

? 

u 

1 1 

<>'I 

1<|7 

114 

143 

145 

197 









noT 

7 

M 

1 

3 

B 

7 

9 

13 

15 

21 

23 

?5 

29 

31 

33 

35 

37 

ftOT 

7 

M 

4 '4 


B3 

55 

57 

41 

63 

45 

69 

71 

75 

79 

83 

87 

89 

DOT 

? 

N 

03 

im 

103 

105 

111 

113 

115 

117 

119 

12! 

123 

126 

135 

137 

139 

DOT 

? 

n 

141 

147 

140 

Ibl 

153 

155 

159 

163 

167 

173 

175 

179 

181 

183 

185 

noT 

? 


iPT 

1^1 

19? 

701 

205 

209 








rxiT 

7 


«»A 

10'-. 














DOT 

? 

S 

17 

1-) 

?7 

39 

41 

45 

47 

59 

73 

77 

HI 

91 

127 

129 

131 

noT 

? 


14? 

l'B7 

161 

169 

171 

177 

189 

193 

199 

203 
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PtEftW RE AOVlRFR OF THE CHANGE TO CLASSIFY 
haPTaP Fite ANO unit MWaFP NOW APPEAR AS 


ANO nibPLAY PROCESSOR CARD IMAGES 

OPOINAWY CONTROL CARDS FIRST ONES AFTER PROCESSOR CARD 
LVNDON 8. JOHNSON SPACE CENTER 
HOUbTQNt TEXAS 


FOPM 

truiTOATA 


INPUT SOWPahy 


DATA 

DOTE 

Chan 

OPTI 

CO'tM 

npTl 

»E'ir> 


tlNIT=n .F 1 L£ = 1 

ouiPur/iiuir=iq*FiLE=i 

0ATA=I ,?,3,a 
PQ l\T 

RSUCcOuRF I HUN 
LACIr. 


OSPP HAS RR'JUESTFO THE FOLLOWING OPTIONS I 


SFI FCTFO Channel' arf I ? 3 4 

PhTNT OATa i/fCTOHS 

LAFIF FOHHATTfcO OOT CAPOS USED AS EOD-LARSYS FIELD CARDS 


SUN ANGI ES 


34 


eo 


60 


60 


60 


60 


60 




60' 


Input IMAGl data tape information 

FORHA7 UNIYFRSAL 

ro. OF ChA JNFLS 4 

NO. OF PIXFLS/LINE 166 

FIRST SCjN LINF no, 1 

FIRST PIxFL WEFFRENCE PT I 


n pROrEOtiMF 1 Run 


LYNDON 8. JOHNSON SPACE CENTER 
HOUSTONf TEXAS 


INPUT FIELDS 

FIELD CLASS SUBCLASS VERTICES (SAMPLE*LINE) 


1 

s 

1 

s 

< 

50< 

20) 

p. 

s 

1 

s 

I 

iia> 

20) 

3 

s 

1 

s 

( 

IROi 

20) 

4 

s 

1 

s 

( 

11U« 

40) 

5 

s 

1 

s 

I 

30« 

60) 

6 

s 

I 

s 

( 

SO, 

60) 

7 

s 

1 

s 

< 

no. 

60) 

h 

s 

1 

s 

( 

130, 

60) 

9 

s 

1 

s 

( 

ISO, 

60) 

10 

s 

1 

s 

1 

170, 

eo) 

n 

s 

1 

s 

t 

lu. 

lUO) 

12 

s 

1 

s 

( 

90, 

100) 

13 

N 

p 


( 

10, 

20) 

14 

N 

? 

N 

( 

30, 

20) 

IS 

u 

2 

N 

1 

70, 

20) 

16 

H 

? 

N 

t 

90, 

20) 

! 7 

N 

? 

N 

( 

130, 

20) 

|H 

N 

? 

N 

( 

ISO, 

20) 

IH 

N 

? 


( 

170, 

20) 

Po 

N 

? 

N 

( 

10, 

40) 

PI 

N 

2 

N 

1 

30, 

40) 

PP 

N 

? 


( 

50, 

40) 

P3 

N 

P 

M 

( 

70, 

40) 

?4 

rj 

P 

N 

( 

130, 

40) 

PS 

N 

? 

N 

( 

ISO, 

40) 

?6 

N 

? 

N 

< 

190, 

40) 

?7 

N 

? 


< 

10, 

60) 

^6 

U 

P 

N 

( 

90, 

60) 

P9 

H 

2 

N 

( 

170. 

60) 

3U 


? 

N 

1 

190, 

bO) 

11 

N 

P 

N 

( 

lu. 

aoi 

3P 

N 

rt 

M 

( 

SO, 

00) 


P < 

o & 

g| 





35 

m 

is 

"it- 


u 

u 

Iv 

n 

u 

^f 

ij 

'/ 

t« 

♦‘I 


\ 70* dO) 

< dO) 

( UQ^ d0> 
( 190« dO) 
( 30» 100> 

I bOt lOD) 
( TOt 100) 
{ ISO* 100> 

< 170* 100) 

< 190* 1001 


NC'. 

SaHPLF 

UMF TYPE CATEROPY 




DATA 

1. 

'lO 

>0 1 

1 

CHI n 
22 

CHI 21 

2fl 

CHI 31 

30 

CHI 41 
10 


no 

?0 1 

1 

21 

25 

27 

11 

■<. 


?n 1 

1 

2B 

35 

34 

13 

4. 

no 

40 1 

1 

26 

27 

30 

12 


70 

^0 1 

1 

20 

30 

29 

12 

ft. 

fto 

40 1 

1 

21 

27 

2ft 

11 

7. 

lln 

40 l 

1 

24 

3ft 

29 

14 


no 

40 1 

1 

27 

3S 

31 

13 


no 

40 1 

1 

21 

27 

2ft 

12 

Ift. 

no 

PO 1 

1 

2S 

30 

30 

n 

11. 

lo 

ion 1 

1 

26 

33 

33 

13 

1^. 

00 

IflO l 

1 

37 

55 

64 

25 

n. 

10 

20 1 

2 

2fl 

38 

40 

16 

1*. 

3tl 

2t> 1 

2 

2S 

26 

25 

11 

I'i. 

70 

?0 1 

2 

25 

35 

37 

14 

ift. 

<<0 

?0 1 

2 

25 

30 

30 

13 

17. 

130 

20 L 

2 

22 

26 

30 

12 

ift. 

no 

?0 1 

2 

26 

32 

31 

13 


170 

20 1 

2 ‘ 

25 

32 

31 

13 

sn. 

10 

60 1 

2 

2B 

33 

3a 

14 

?l. 

30 

40 1 

2 

26 

36 

36 

14 


*iO 

40 1 

2 

24 

28 

JU 

12 


7(1 

40 1 

2 

21 

27 

24 

11 

2*. 

IJO 

40 L 

2 

26 

27 

28 

11 

?s. 

ISO 

40 1 

2 

24 

27 

2ft 

12 


no 

40 1 

2 

24 

28 

26 

12 , 

27. 

10 

fid 1 

2 

21 

27 

31 

14 

IV 

* 

90 

40 1 

2 

21 

27 

29 

11 

?=1. 

170 

40 1 

2 

29 

40 

40 

17 

Tfl. 

no 

40 1 

2 

24 

32 

31 

13 

31 . 

ID 

-*n 1 

2 

21 

26 

23 

9 

32. 

so 

ftO 1 

2 

2b 

35 

34 

14 

33. 

70 

80 1 

2 

22 

?8 

31 

16 

3*. 

90 

an 1 

2 

22 

32 

31 

12 

3S. 

no 

BO 1 

2 

21 

26 

27 

12 

3A. 

19ft 

flO 1 

2 

25 

30 

31 

13 





I 


17, 

in 

in« 

V 

2 

2b 

AT 

2b 

13 

3". 

NO 

mo 

■ 1 

2 

2* 

26 

27 

12 


To 

mo 

1 

2 

2h 

36 

AS 

2b 

AO, 

ISO 

100 

1 

2 

26 

31 

33 

13 

A) • 

170 

ino 

1 

2 

26 

33 

33 

lA 

A?. 

190 

mo 

1 

2 

21 

26 

27 

11 

f 

ANGl FS ! 

T4 

60 

60 

60 60 

60 

60 

60 


INPUT I 'Art flalA TAPf lNFO-»MAriON 


FT>3“6T UMVEMSAL 

► O, OF rna'INPLS A 

CO. OF 0£XtL‘;/LlNF 1«>6 

FIN'S! FFAN LICF Hu. 1 

F!R«! H«FL wEFfHFUCE PT 1 

1 

n p~orFniiHF i run 


LVNOON R. JOHNSON SPACE CENTER 
HOUSTON, TEXAS 


INPUT FIELDS, 


FIfLl) 
1 S 

1 

CLASS 

s 

SUBCLASS 

{ 

10, 

10) 

z 

S 

1 

s 


( 

30, 

10) 

J 

S 

1 

s 


( 

90, 

10) 

u, 

S 

1 

s 


< 

no. 

10) 

b 

5 

1 

$ 


( 

ISO, 

10) 

f> 

S 

3 

s 


( 

170, 

10) 

7 

s 

1 

s 


( 

SO, 

30) 

H 

s 

1 

s 


( 

70, 

30) 

9 

s 

1 

s 


( 

no. 

30) 

LO 

s 

1 

s 


{ 

190, 

30) 

n 

s 

1 

s 


( 

3(1, 

SO) 

12 

5 

1 

s 


( 

70, 

SO) 

u 

5 

1 

s 


( 

130, 

bU) 

1 A 

S 

1 

s 


( 

190, 

SO) 

lb 

s 

\ 

s 


( 

30, 

70) 

l^ 

s 

1 

s 


( 

SO, 

70) 

1 7 

s 

1 

s 


( 

130. 

70) 


5 

1 

s 


( 

190, 

70) 

19 

s 

1 

s 


( 

30, 

90) 

?U 

s 

1 



( 

70, 

SO) 

21 

5 

1 

s 


( 

30, 

110) 

22 

s 

1 

s 


( 

SO, 

110) 

23 

s 

1 

s 


( 

70, 
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9 


s 


< 

Ufl. 

IJO) 

lO) 

2S 

9 

? 

u 


( 

SO, 


N 

? 

ffl 


1 
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? 

N 


( 

130, 
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M 

? 

N 


( 

190, 
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?V 

r4 

? 

« 


( 

10, 

30) 

30 

N 

2 

N 


( 

30, 

30) 

J1 

N 

2 

N 


( 

90, 

30) 

32 

n 

? 

N 


( 

130, 

30) 

1 i 

M 

? 

N 


K 

ISO, 

3U) 

34 

N 

2 

N 


{ 

170, 

30) 

IS 

4 

? 

N 


( 

10, 

50) 

i F> 

N 

? 

N 


( 

bO, 

50) 

37 

N 

? 

fj 


( 

90, 

SO) 

3k 


? 



( 

no, 

bO) 

3s 

N 

p 

U 


( 

ISO, 

bO) 

4i) 

N 

2 

U 


< 

170, 

50) 

Al 


2 

n 


( 

10, 

70) 


N 

? 

u 


( 

7(1, 

70) 

43 


? 

u 


( 

9(1, 

70) 

44 


? 

H 


( 

11(1, 

70) 

45 


2 

n 


t 

ISO, 

70) 

46 

M 

? 

u 


( 

170, 

70) 

4? 


? 

M 


1 

10, 

90) 

4/4 
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N 


( 

50, 

90) 

49 

h 

2 

M 


( 

90, 

90) 

SO 


2 

n 


( 

11(1, 

90) 


ri 

? 

fi 


t 

130, 

90) 

e.> 


p 

M 


( 

ISO. 

90) 


VERTICES (SAMPLE, LINE! 






“Ij 

s^ 

SI 

Sft 

60 


( ITOt SOI 
I J90« 90) 

1 10. 110) 
( 90. 1101 

( 130. HO) 
t ISO. 110) 
( 170. HO) 
( 190. 110) 


NO. 

S9MPLF 

LINF 

TYPE 

category 




data 

). 

10 

10 

2 

1 

Ch< 1) 
28 

CHI 21 
36 

CHl 3) 
33 

CHt 4) 
14 

?. 

30 

10 

d 

1 

24 

31 

26 

H 

1. 

9ft 

10 

a 

1 

26 

36 

33 

14 

9. 

HO 

10 

? 

1 

2B 

39 

39 

15 

= . 

150 

10 

2 

1 

21 

23 

24 

10 


170 

10 

i 

1 

31 

38 

39 

15 

7. 

30 

30 

i 

1 

21 

26 

22 

10 

9. 

70 

30 

2 

1 

24 

35 

37 

14 

9. 

no 

30 

c 

1 

24 

35 

34 

14 

lo. 

}90 

30 

2 

1 

21 

27 

25 

ID 

H. 

30 

50 

2 

1 

29 

3fl 

34 

15 

1’. 

. 70 

5a 

2 

1 

26 

38 

44 

16 

n. 

130 

50 

2 

1 

21 

26 

27 

H 

H. 

190 

50 

2 

1 

25 

3? 

34 

14 

19. 

3li 

70 

2 

1 

26 

33 

33 

14 

19. 

=,') 

70 

2 

1 

24 

27 

2a 

12 

17. 

130 

70 

2 

1 

26 

33 

36 

16 

19. 

190 

7<l 

2 

1 

24 

25 

42 

20 

19. 

30 

90 

? 

1 

20 

27 

26 

12 

?f. 

70 

90 

d 

1 

29 

40 

48 

19 

?U 

30 

HO 

d 

1 

28 

4ft 

44 

19 

??. 

5ft 

HO 

2 

1 

26 

35 

34 

IS 

?1. 

70 

HO 

2 

1 

22 

30 

31 

14 

?9. 

11(1 

lift 

i 

1 

2« 

30 

*2 

18 

?S, 

50 

Hi 

2 

d 

28 

33 

3J 

13 

?9. 

70 

in 

d 

i 

31 

38 

36 

14 

?7. 

130 

in 

2 

? 

21 

27 

27 

11 

?«. 

190 

10 

2 

2 

26 

33 

33 

13 

29. 

10 

30 

2 

2 

27 

35 

31 

13 

30. 

30 

30 

2 

2 

24 

32 

31 

12 

31. 

90 

30 

, 2 

2 

21 

27 

2b 

12 

35. 

130 

30 

2 

2 

27 

35 

31 

13 

33. 

1=^0 

30 

2 

2 

27 

35 

34 

13 

39. 

170 

3ft 

2 

2 

21 

27 

29 

H 

39. 

10 

5ft 

2 

2 

2? 

32 

34 

14 

39. 

50 

50 

2 

2 

2? 

26 

23 

10 

37. 

90 

5ft 

? 

2 

2? 

26 

25 

H 
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SO 


a 

ai 

28 

as 

n 
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SO 

'a 

2 

ai 

2S 

27 

n 

An. 
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so 

p 

2 

as 

30 

31 

13 
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m 
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? 

2 

an 

31 

31 

12 
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70 

70 

? 

2 

24 

31 

33 

12 

AT, 

so 

70 

a 

2 

20 

38 

36 

13 

4A. 

no 

70 

? 

2 

2B 

33 

3J 

14 

A-:.. 

1*10 

70 

? 

a 

24 

28 

27 

11 

AS. 
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70 

i 

2 

24 

2S 

26 

11 

Af. 

10 

on 

a 

2 

24 

27 

29 

12 

AO. 

so 

so 

i 

2 

32 

43 

43 

17 

AO. 

0(1 

so 

? 

2 

27 

37 

48 

21 

sn. 

in 

so 

2 

a 

20 

40 

46 

19 

SI. 

Un 

so 

2 

a 

32 

40 

40 

15 

s?. 

HO 

so 

2 

2 

24 

30 

34 

14 

ST. 
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so 

2 

2 

21 

27 

29 

n 

S4. 

HO 

<>0 

2 

2 

29 

43 

40 

19 

SS. 

in 

no 

2 

2 

33 

40 

47 

19 

SA, 

00 

no 

2 

2 

2? 

30 

30 

12 

S7. 
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no 

2 

2 

28 

3S 

34 

15 

SO. 

HO 

no 

2 

2 

18 

2? 

20 

9 

so. 
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no 

2 

2 

30 

3S 

34 

14 

on. 
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no 

2 

2 

21 

28 

25 
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Ti“F nnroATA 


(l.ien MINUTES 


PLFaSE <3(- «lWI‘iFO UF THE CHANGE TO CLASSIFY 
MAPTAP file ANO unit NUMKEP NOH APPEAR AS 


PPOCEouftF 1 RUN 


and display processor card IMAGES 


ORDINARY CONTROL CAROS 
LYNDON fi, JOHNSON SPACE CENTER 
HOUSTON* TEXAS 


FIRST ONES AFTER PROCESSOR CARO 


Ij 

Ip' 


STFSTSP 


INPUT SU““4Rr 


DATA 

UNfT=ll.FILE=l 

nOTF 

INPUT/UMT = 19.F1LE=1 

ST4T 

«jOTPUT/jJ'IIT=20»FILE=I 

chan 

OATa=I *2.3.4 

CHAV 

STaT=I *2.3*4 

SFH 

1.0 

STD” 

H.O 

DM! 

0 

N«IN 

»0 

P”JN 

20 

ISTD 

■1 

OPTI 

stats 

COSH 

PROrFfUIKF 1 RUN 

DOTS 

•FND 

1.10. IS. 20. 30. 35. 40 


YOU HAVE SEieCTfn THE FOLLOWING PARAMETER VALUES AND OPTIONS 
STOP AFTtH 0 ITERATTON(S» 

Al I OH A MI'IIHIII-I OF ?0 PIXFLS, PFH Cl USTFR, 



PhTNT a rl si- Vll c"l 20 ntRATI0N<S> 

Aurl f ?0 irenATION(S) 

rLr CLilSTEHS PEW CLASS 

r-T^rJus'/i^E^/'V «P -RITTEN AETER 

riL'M'* = ft.O I r , 4 

It.finn 
Pforf T = .0 

fJoTs - 

f rA»-»“ 

SEP = 1.0 IK) 


1 CLASS (ES) have HEEN CLUSTERED 


input I^at-p data Tape information 

uo'^’‘Sf r.AM.ris t'UIVFRSAL 

^C®N LIf/E MO. J 

I FIrfSr ulxEL REFFREMCE Pf 1 
< PROrEOiJPP 1 RUN 


LYNOON B. JOHNSON SPACE CENTER 
HOUSTON* TEXAS 


FIELDS TO BE CLUSTFREO FOR CLASS WKEA 


field Name 

^ I SfOM 

no/OU cluster pop for this class 
procedure 1 HUfi 


SAMPLE LINE 
INC. INC. 


10 


10 


VERTICES (SAMPLE. LINE! 

( 10. 101 ( 196. 10) 1 196. 117) ( 10. 117) 


lvndon e. JOHNSON space center 

HOUSTON, TEXAS 


final CI USTER summary for class WHEa 

total NIIHHFH of CLUSTFRS = 7 
TOTAL NIIMRFR of POINTS = 20R 


CL'ISTFR 

i 

? 

1 

A 

5 

6 
7 


SYMBOL POINTS IN CLUSTER 

f ?6 

i T« 

9 41 

1 ?P 

6 46 

7 23 


MpANS 


Cl USTER 

? 

3 

4 

5 

6 
7 


Chi 1) 
2?. 1 7 
2S.31 
26.4? 
30.20 
24. 6A 
2) .NT 

26.04 


CHI 2) 
27.78 

29.44 
35.03 
40.20 

32. 45 
25,98 
32.00 


CHI 3) 
29.61 
29.S0 
36. SB 

44.46 
30.91 
25.70 

33.04 


CHI 4) 
12.00 
12.13 

14.04 
R.OS 
12.91 
11.17 
13.39 


standard deviations 


CHI 1) 
1.34 


CH( 2) 

1 . 02 . 


CHI 31 
I . 24 


CHI 41 
.. I.S3 


Cl USTER 



2 

1.04 

1.32 

1.32 

U.»6 


^♦0(1. 

?,S9 

3.71 

UQ*) 

4 

3,44 

6.26 

7.64 

3.12 

5 

2.14 

1.67 

0.45 

O.Sl 


1 .*4 

1.41 

2.04 

0.Q7 

7 

I. 16 

1.22 

1.27 

0.07 


CLU^STPft 

OISTANCes HFTWEEN CLUSTERS 
12 3 4 

5 

6 

7 

1 

0.0 

3.02 

6.32 

0.20 

4.18 

3.00 

5.74 

■> 

3.02 

(1.0 

4.44 

7.46 

2.70 

4.73 

3.76 


6.32 

4.04 

0.0 

2. 75 

3.89 

7.37 

2.62 

4 

0.20 

7.46 

2.75 

0.0 

7.18 

8.82 

5.86 


, 4.10 

2.70 

3.09 

7. 10 

n.f) 

6.46 

2.27 


3.uf> 

4.73 

7.17 

8.02 

6.46 

0.0 

7. 78 

7 

R.74 

3.76 

2.62 

6.86 

2.27 

7.78 

0.0 


PWOCEOUFt 

1 RUN 




LYN006 

H. JOHNSON SPACE CENTER 
HOUSTON. TEXAS 




TOTAL NOH«FO OF POINTS IN THIS FIELD 

oooflnoooonini Fill 
1234S6 7840123456784 

onooouoooooooonocoo 

)0 

3720S1 3437426662477 

2(' 

4166173626641156523 

34 

5S‘.267336636S4 31 146 

44 

443S16661S262661276 

sn 

5613614465616563217 

64 

10166166IS27526343S 

7fl 

777V.37737444412673 

04 

6667721 ?S 1677444232 

90 

ll644444l44S4671 164 

ion 

71476^4644144473746 

IKi 

4 3473454! 3433366336 


204 


pni ITS 

nilST'’r' 

1 

2 

3 

& 

5 

IS 

7 


ci»ss j 
su«cnsst 
n hfai'H 


FLUSTFP In 
sri'MOL 

1 

7 > 

3 

w 

s 

f) 

7 


This ffelo 
POINTS 

23 

<►1 

22 

46 

23 


i^HFA 

WnOl 

22.17 


o o 

*v ^ 

at 

.o ^ 

Es^ 

{3 tg 


27.70 


24.61 


12.00 


^13 


covfiPiiNCF '^sniic; 

l.«o 

-fl.lO 1.04 

-0.37 -0,30 

-0.4H 0.0 


C14SS « 
SIlOrLASSI 

f> MFAM) 


•<Ht4 

KHO? 

2S.3I 


1.54 

l .?2 


2.35 


24-44 


24.50 


12.13 


COVARIANCf HATOIm 

l.Ow 

— n* Iw 


0 

0 


1-7S 





I] 

ft 

ft 


-n.ih 


0.03 1.7S 

0*01 0,13 0,73 


ri ASS : 
S"t«CL ASS? 

I) 


W-(h A 


35.03 36. 5P 1A.84 


0 

0 

0 

n 

ft 


CnVA^IANCf ''ATKIKI 

?.54 

-0.65 

-0.20 


6.71 

0.75 

0.32 


13.77 

6.12 


3.71 


n «<;s » 

SH«CLA55l 
0 »FAt|« 


ft 

3ft. 5>0 


40.10 “ 44.46 lfl.05 


fl 

(I 

ft 

ft 

ft 


CnvftPiftfjrr .arpuj 

n .-<2 

39.21 

?>n 43.93 

0.2' 16.17 


56.44 

22.51 


9.71 


ft 


ri ftss I 
SlllCLASSt 
“Fft'il 


-H£a 

wnfiS 

24,<Sft 


32.45 30.91 


12.91 


ft 

ft 

ft 

n 

a 


4.5.- 

2*^'’ 

-0.47 -0.09 

-0.1? -0.23 


0.9O 

0.13 0.26 


n ft55 1 wnFft < 

SnaCLASSt -.-06 

ft 21.97 25.96 25.70 11.17 


0 

0 

0 

o 

fl 


COVAPIANCf ft-ATRIXt 
2.07 
0.02 
ft. 72 
0.36 


1.90 

0.97 

0.50 


4.17 

1.31 0.75 


CLASS t 
SII9CLASS1 

0 MpANI 


2MFA 

rfH07 

26.04 


n 

0 

0 

n 

0 


COVAHIANCS MATRIX! 
1.35 
0.70 
- 0.22 
-0.23 


32.00 


1.40 

0.22 

0.04 


33.04 13.39 

r 

1.61 

0.33 0.76 


THF STATISTICS FILE FOR 1 CLASSES AND 7 SUBCLASSES HAS BEEN 

Jhf stats F9^ a Particular class or subclass should be RFFFHUFn 
THE FOLLOkIHG HAHES AND NUHRERS (W HICHEVER APPLICABLE) 


WRITTEN 

TO IN LATER RUNS BY 





CL*S5 1 


w«F a 


SiJrtCLASSFS (TOTAL® 7) 


I 

? 

T 

A 

<i 

<S 

7 


WMB! 

Wri02 

WN03 

WMOA 

HMOb 

Vfh06 

MkQ7 


TI'^F FOO TEST^P O.flflA MINUTES 


1 

<> 


PLEASE S6 advised OF THE CHANGE TO CLASSIFY 
maptap file and UNIT NUHrfER nOw appeap as 


PPOftnOMF I Pun 


AND DISPLAY PROCESSOR CARO IMAGES 

ORDINARY CONTROL CARDS FIRST ONES AFTER PROCESSOR CARO 
LYNDON fl. JOHNSON SPACE CENTER 
HOUSTONt TEXAS 


TLAPFL 


INPUT SUMMAhY 


nOTF 

STAY 

STAT 

p-»nr 

thop 


COMM 

•fh-0 


INPUT/I)NIT=IR*FILE=1 

lNPUT/UNlT=?n.FILF=l 

OUTPUT/UN1T=?O.FILE=2 

K- jEArFST 

?S,0 

PPUCFO'IPE I PUN 


tiSFR HAS PfOUESTFO The following OPTIONS : 


K-NPAPFST PBuCEOHPE will PE USED 
U fllSTANCF <1LL MF USFO 
TmbFSHOI O DISTANFF = PS.OOO 
1-fFAPfcST ijors Mil L PF U<;£0 
flO <;ufj ANfi.F COrpFCTIOn «ILL HF APPLIED 
nOTFR FILF IS -iUNG INPUT 
SAVTAP FILF IS HFIfvG INPUT 


1 


PPOCEOIIHF 1 HON 


LYNDON B. JOHNSON SPACE CENTER 
. HOUSTON, TEXAS 


input fields 
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CLASS 

SUBCLASS 
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? 

s 
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I 

s 
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( 

no. 
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S 

s 

1 

s 


( 
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t> 
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1 

s 


( 
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s 

I 

s 


( 
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60) 


li 

s 

1 

s 


( 

130, 

GO) 


•4 

s 

1 

s 


( 

ISO, 

GO) 


10 

s 

1 

s 


( 

170, 

ao> 


11 

s 

t 

s 


( 

10, 

100) 


12 

s 

I 

s 


1 

90, 

loot 


13 

N 

? 

N 


( 

10, 

20) 


lA 


? 

N 


t 

30, 

20) 


IS 

N 

? 

N 


( 

70, 

20) 


IN 

N 

?. 

N 


( 

90, 

?OJ 


17 

M 

? 

N 


( 

130, 

?0) 


IS 

W 

2 

N 


( 

ISO, 

20) 


iv 

ra 

? 

N 


t 

170, 

201 


?n 

N 

? 

M 


1 

10, 

AO) 


?i 


2 

N 


( 

30, 

AO) 


22 

N 

2 

N 


( 

SO, 

AO) 


23 

N 

? 

N 


( 

70, 

AO) 


?A 

Kl 

2 

N 


( 

130, 

40) 


?S 

f4 

? 

N 


( 

ISO. 

AO) 



N 

? 

N 


( 

190, 

AO) 


27 

N 

? 

N 


< 

lo. 

GOt 


?H 

n 

2 

N 


( 

90, 

60) 


2R 

H 

? 

N 


{ 

170, 

60) 


in 


•? 

N 


( 

190, 

601 




PKOCFOllfiF 1 BUM 


( lOi ao) 

( 50. BO) 

( 70. BO) 

( 00. BO) 

I 110. BO) 

( 190. BO) 

( 30. 100) 

( 50. 100) 

( 70, lUO) 

( 150. 100) 

I 170. 100) 

( 190. lOU) 

LfNOON B. JOHNSON SHACe CENTEB 
HOUSTON. TF)fAS 


CLUSTEH-OOT iNrEH-OISTANCE TABLE 


P.7H 

7.57 

l-^.A ) 

5. Oil 
S.on 

A. s7 

B. oS 

14. A3 

5.57 

4. A3 
1 4.43 
‘>9. 43 
34, IM 
1 4 . P? 

14.43 
A. 4 3 
■ I. )H 

1?.43 

9.43 

21.43 

24.43 
P.43 

7.2? 

4.22 

5,65 

5.35 

3.5/ 

34.43 
n.43 

1?.57 

19.43 

*•. )« 

5. /B 
5.6/ 

7.43 
11.65 

7.?? 

37.43 

11.43 
14.41 

7.67 


7.3B 

i?.3B 

13.63 

3.75 

6.50 
1 1.3B 

4.25 

9.63 

10. 3B 

?.50 

5.63 

04.63 

25.63 
9.3rt 

14.25 

?.?S 

5.3A 

7.63 

5.25 

16.63 

15.63 
3.3B 

13. 3« 

5.75 
5.3« 
6.3B 

10.13 

B.3B 

29.63 

6.25 
17. 3A 

14.63 

10.13 

7.50 
10. 3B 

3.25 

6.63 
«.3A 

3?. 63 

6.63 

9.63 

12. J« 


22. B7 

25. B7 

6.03 

17, B7 
P1.P7 

27.67 

15, B7 
B.ni 

26. H7 

16.67 
7.B7 

6H.13 

9.13 
25. B7 
2.71 
14. B7 
?0.B7 
12.03 

11.67 

5.07 

2.P? 

15.67 
?9,H7 
20. H7 
?1.B7 
?2.H7 

19.87 
P4.B7 
IJ.13 
1?.B7 
3J.P7 

5.03 

IH. IB 

15.07 

26.07 

II. B7 

12.87 
?4.B7 

16. J3 
9.B7 

6.B7 

2J.B7 


CLST 

CL5T 

CLST 

CLST 

( 4) 

( 5) 

( 6) 

1 7) 

42.80 

10. 9S 

7.93 

14.48 

4S.B0 

16.95 

3.02 

20.48 

22.80 

9.05 

25.59 

6.30 

37.80 

M.59 

10.59 

9.48 

41.80 

9.95 

9.72 

13.46 

47. BO 

15.95 

2.07 

19.48 

35.80 

6.14 

12.59 

8.70 

26.80 

5.05 

21.59 

6.39 

46.80 

14.95 

2.72 

18.48 

36,00 

5.59 

11.93 

8.48 

27.50 

4,05 

20.59 

1.48 

4a, 20 

BO. 05 

96.59 

76,52 

10.80 

21.05 

37.59 

17.52 

45.80 

14.59 

4. 33 

17.48 

21 .80 

10. 0-, 

26.59 

8.61 

34.B0 

3.77 

13.59 

6.46 

40.80 

8.95 

7.59 

12.48 

2«.a0 

J.9S 

19.59 

4.39 

31. HP 

0.95 

16.59 

3.48 

19.60 

12.05 

20.59 

0.52 

20.80 

11.05 

27.59 

7.61 

30.80 

6.95 

9.59 
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N/N 


N/N 


n/n 


N/N 

90 


M/N 


N/N 


S/N 


N/N 


N/N 


N/N 


N/S 


N/N 


S/S 


ion 

S/N 


N/N 


N/S 


5/N 


N/N 


N/N 


N/N 


N/N 


S/N 


N/5 

no 


N/N 


S/N 


N/N 


S/N 


0/N 


R/N 


H/N 


D/N 


0/N 










A. 

1. LAHELS 

VS CLASSIF 

ICD LABELS 














TYPE 2 DOT CLASSIFICATION 








10 

20 

30 

40 

SO 

60 

70 

80 

90 

100 

no 

120 

130 

140 

150 

160 

170 

160 

190 

in 

N/N 


N/N 

' 

N/N 


N/N 


N/N 


M/N 


N/S 


N/S 


S/N 


S/N 

20 


N/N 


N/S 


N/N 


S/N 


N/S 


N/N 


N/N 


N/S 


N/N 


30 

S/N 


S/N 


D/S 


S/N 


S/S 


N/N 


N/N 


N/N 


N/N 


N/S 

40 


5/N 


M/N 


N/S 


N/S 


0/N 


N/S 


N/S 


S/N 


N/N 


50 

S/N 


N/N 


S/S 


N/N 


0/S 


N/S 


N/S 


S/S 


N/n 


R/N 

60 


D/N 


M/S 


N/N 


N/S 


N/N 


H/N 


H/N 


N/N 


N/N 



p o 

. 

PI 

^ ?=► 





70 N/N MyN N/N 


lift N/N S/\ u/fi c/M 

j ;^{}‘ = ,«p 

fl ?0 19 47 1 fl 

S S'l „ PI? P'^l P*^2 p ALP 
? "•^"2^..2^^?^2l,^?SS3ueT^‘)‘’S2»,S•”80 0.5000 o.^ooo 


TIrtf F0» OI«PL«r 


P?. ^”''J5PR 9£ the cnsMee to classify 
MAPTAP file ANtT Unit NUMiiER now appear as 

PPOCEOUHE 1 RUN 


AND DISPLAY PROCESSOR CARD IMAGES 
. . OPOIHARY CONTROL CAROS FIRST ONES AFTER PROCESSOR CARO 

LYNDON g. JOHNSON SPACE CENTER »ricn rnui,t«UK LAHO 

HOWSTON* TEXAS 




